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Recipients of the Ramo-Wooldridge Utility Routine Library: 

The enclosed "Table of Contents" should replace the one currently in the 
notebook. 

The enclosed description for FRI-0 is a revision and should replace the 
present FRI-0 description. 

All thirteen pages of the section currently in the notebook entitled 
"General Description of ERA-1103 Operation Using the Service Routine 
Library" should be replaced by the enclosed section "The Utility Routine 
Library Handling Package". 

The routines currently included as appendices to this section (that is, 
FRI-1, URT-0, and URT-l) should be replaced by the enclosed routines FRI-1, 
URT-3, and URT-l respectively. The three new routines should be placed in 
their proper alphabetical position with the rest of the utility routines 
rather than as appendices to the "Utility Routine Library Handling Package". 

The following enclosures are new additions to your library notebook: 

CPC-1 Card Punch Output for Floating Point Numbers 
DIE-0 Definite Integral Evaluation Routine 
EXP-3 Floating Point Exponential Routine 

K)G-2 Floating Point Natural Logarithm 

MDP-1 Bioctal Memory Dump 

NUI-3 Numerical Integration by the Gill Method 
SIN-3 Floating Point Sine-Cosine Routine 

SNI-1 Arcsire-Arcosine Routine 

SNI-2 Floating Point Arcsine-Arcosine Routine 
STT-0 Storage to Magnetic Tape Transfer 

TST-0 Magnetic Tape to Storage Transfer 



Walter F. Bauer, Head 
Digital Computing Center 
Computer Systems Division 
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The Utility Routine Library Handling Package for Paper Tape Input 


Normal Operation 

During normal operation, the Service Routine Library is stored on the drum. 

In order to use one of the routines, control is transferred to one of the 
low-numbered drum addresses in the 40000b channel (see the list of " Service 
Routine Starting Addresses "). 

Details concerning the operation of these routines and their locations can be 
found in the write-ups. 

MT Start 


If, at any time, the library stored on MD is destroyed by a program, or 
because the drum interlace has been changed, cr for some other reason, 
the entire library may be loaded onto KD from magnetic tape. Selecting 
KT Start and starting effects loading of the service routine library 
from ITT zero. PAK is set to the FRI-0 starting address upon completion 
of the transfer. Selecting KT Start, setting A^> 0, and starting effects 
loading of the service routine library and the assembly program and sub¬ 
routines from MT zero. PAK is set to the CKP-0 starting address upon 
completion of the transfer. 

Bootstrap 

Since the Ferranti reader requires a programmed read in, it is necessary 
to "bootstrap" into the machine when no input routine is stored in memory. 
The procedure devised to load an input program involves the use of one 
binary card (since this method requires the fewest number of instructions 
to be loaded manually). It is necessary to key in manually only four 
words which perform the read in of one binary card (24 words) and transfer 
control to these 24 words. 

This binary card contains a simplified Ferranti Input Routine (FRI-0) which 
then begins to read in the service routine library paper tape. This tape 
contains at its beginning the regular FRI-0 input routine and instructions 
transferring it to its proper location on KD. When FRI-0 has been loaded 
on KD control is transferred to it and FRI-0 reads in the remainder of the 
tape. 

Following FRI-0 on the tape are the library, a Magnetic Tape to MD transfer 
routine (URT-l), and an MD to Magnetic Tape transfer routine (URT-3). When 
the complete paper tape has been read in the computer halts with the library 
loaded on KD. PAK is set to 40000 by an MD Start, the machine is started 
and URT-3 transfers the library and URT-l to magnetic tape unit zero. The 
computer then halts with PAK set to 40001, the FRI-0 starting address. 

Detailed Descriptions of Routines 


Detailed descriptions, operating instructions, and codes for the routine 
mentioned above are included in the notebook. 
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Operating Instructions for the Bootstrap Procedure (Loads MD and MT zero with 
Service Routine Library ) 


1. Put the binary card deep in reader making sure that card reader is 
set for two fields and that all three switches on the reproducer 
are away from the card hoppers. Also be sure that there are cards 
in the punch hopper as the reader will not operate without them. 


2. Put the library paper tape in the Ferran t i Reader . 

3. Position MT zero at the dead space immediately preceeding the first 
block. (Maintenance people will perform this function if requested). 


4• Key in the following progra m: 


00104 17 00000 
00105 17 00000 
00106 75 30030 
00107 76 10000 


00104 

pick 

00105 

read 

00000 

read 

00000 

then 


card 

and pick card 
one binary card 
jump to 00000 


5. START at 00104 . The computer reads in one card containing the 
simplified Ferranti routine, then switches control to this routine 
which reads in FRI-0 and the necessary orders to transfer it to MD. 
After FRI-0 has been placed on KD, control is transferred to it and 

it reads in the library tape and the MT to MD and MT transfer routines. 
The computer then halts with the MS instruction 56 00000 40001. 

6. Select MD Start 

7. Set low order octal digit of Q to the address of the MT unit desired. 

To load tape zero, omit this step of the procedure. 

8. START . The KD to MT routine loads the MT to MD routine, 40001b thru 
40040b, 70000b thru 75777b, and 60000 thru 67777 onto MT zero. The 
computer then halts with the MS instruction 56 00000 40001, setting 
PAK to the FRJ-0 starting address. 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45* California 


Card Punch Output for SNAP ff umbers 
Specifications 


Identification Tag: 
Type: 

Assembly Routine Spec: 
Storage: 


CPO-1 

Subroutine 

SUB 50490 20824 (see special Assembly Instructions) 

180 instructions, addresses 
00K00 thru 07K32 

28 constants in program, addresses 
02C00 thru 01C23 

43 words temporary storage required but not 
stored with the program 

208 words total program storage, addresses 
00K00 thru. 07K32 
02C00 thru 01C23 

10 words temporary storage pool used, addresses 
00027b thru 00040b 

The constant pool is used by this routine 


Program Entrances: 
Program Exit: 
Alarm Exit: 


Addresses 00K02, 00K03 
Address C0K01 

The alarm exit is used by this routine 


Drum Assignment: Addresses 64372b thru 64711b 

Machine Time: 0.5 seconds per card if both the entrance and 

the numbers are in ES 


Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


R. Summers 
R. Summers 
R. Summers 
W. Eauer 


September 7, 1955 
September 9* 1955 
September 14* 1955 
September 23* 1955 
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Description 

This routine converts SNAP floating point numbers into floating decimal numbers 
and punches them onto cards. These cards may be used either for listing or for 
SNAP input. 

Two entrances are provided; one requires a parameter word for each word to be 
punched end the other requires two parameter words for punching any number of 
words stored in consecutive cells. 

The cards produced by this routine contain four numbers each. Each number con¬ 
sists of a ten-digit mantissa and a two-digit exponent. Each number has associ¬ 
ated with it a five-digit decimal location number which may be used as an input 
address. 

Assembly Instructions 

Although only 208 instructions are assembled an additional 43 cells (bringing 
the required total to 251 cells) must be allowed for temporary storage. 

This routine must operate from ES. 

Programming Instructions I (to be followed when a parameter word is supplied for 
each cell to be dumped) 

This routine may be assembled into a program by use of a "SUB" card as mentioned 
under "Assembly Instructions" above. 

1. Enter the routine with an RJ instruction . Assuming that the routine was 
assigned to region 00K00 for assembly use the instruction RJ 00K01 00K02. 

2. Enter the parameter words . If the RJ instruction was placed in cell n one 
parameter word for each cell to be dumped should be placed in cells n+1, 
n+2, n+3, etc. 

The parameter word is of the form 
00 M L. 

The u-address portion of the word (M) should contain the address of the 
number to be dumped. This mo.y be any ES or drum address. 

The v-address portion of the word (L) should contain the location number. 
This should be the octal equivalent of the decimal location number that 
will be punched on the output card. 

3. At the conclusion of the routine control will be transferred to the first 
cell (following cell n) in which the first octal digit is not a zero. 

Alarm Conditions for "Programming Instructions I " 

If (M) is not a true SNAP number (that is, if bit 27 of (M) is equal to zero) 
a partially blank card will be punched. "CPO-1" and the address of the RJ 
instructions used to enter the routine will be printed on the flexowriter. 
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At the time that the alarm halt occurs PAK will be set to the address of the 
cell immediately following the RJ instruction. It must be reset before start¬ 
ing again. 

Programming Instructions II (to be followed when two parameter words are to be 
used to specify a dump of the contents of a number of consecutive cells) 

This routine may be assembled into a program by use of a n SUB n card as mentioned 
under 'Assembly Instructions" above. 

1. Enter the routine with an RJ instruction . Assuming that the routine was 
assigned to region OOKOO for assembly use the instruction RJ 00K01 00K03. 

2. Enter the two parameter words . If the RJ instruction was placed in cell 
n the parameter words should be placed as follows: 

n+1: 00 00000 p 

n+2: 00 M L 

M and L are defined as in item 2 of "Programming Instructions I". 

The numbers located in p consecutive cells (starting with address M) will 
be converted and punched. L will be advanced by one for each number. 

3. At the conclusion of the routine control will be transferred to cell n+3. 
Alarm Conditions for "Operating Instructions II " 

If (M) is not a true SNAP number (that is, if bit 27 of (M) is equal to zero) 
a partially blank card will be punched. "CP0-1" and the address of cell n+2 
will be printed on the flexowriter. 

Starting at this time will cause a normal exit from the subroutine. 

Last Card Punched 

If the number of cells to be punched for a particular dump is not an even multiple 
of four the last card will contain blank fields to allow for the missing cells. 
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D 


0 1 C 0 0 

0 12 0 8 




D 


0 2 C 0 0 

0 12 0 4 




D 


0 0 K 0 0 

0 10 2 4 




D 


0 1 K 0 0 

0 10 5 3 




D 


0 2 K 0 0 

0 10 7 7 




D 


0 3 K 0 0 

0 10 9 5 




D 


0 5 K 0 0 

0 1113 




D 


0 6 K 0 0 

0 115 9 




D 


0 7 K 0 0 

0 117 1 




D 


0 0 C 0 0 

0 0 0 1 3 




D 


0 0 T 0 0 

0 12 6 8 




D 


0 1 T 0 0 

0 0 0 2 3 




D 


4 1 C 0 0 

5 0 6 7 4 




D 


4 2 C 0 0 

5 0 6 7 0 




D 


4 0 K 0 0 

5 0 4 9 0 




D 


4 1 K 0 0 

5 0 5 1 9 




D 


4 2 K 0 0 

5 0 5 4 3 




D 


4 3 K 0 0 

5 0 5 6 1 




D 


4 4 K 0 0 

5 0 6 0 8 




D 


4 5 K 0 0 

5 0 5 7 9 




D 


0 4 K 0 0 

0 114 2 




D 


4 6 K 0 0 

5 0 6 2 5 




D 


4 7 K 0 0 

5 0 6 3 7 




D 


1MG00 

0 12 3 2 




D 


2MG00 

0 12 4 4 




D 


3MGOO 

0 12 5 6 




D 


0 0 D 0 0 

0 0 4 6 0 




4 0 K 0 0 

3 7 

7 5 7 0 1 

75702 B 

ALAR 

M E X 1 

T 

4 0 K 0 1 

M J 

0 0 0 0 0 

0 0 0 0 0 

NORM 

A L EX 

1 T 

4 0 K 0 2 

M J 

0 0 0 0 0 

0 1 K 0 0 

E N T R 

A N C E 

ONE 

4 0 K 0 3 

S P 

0 0 K 0 1 

0 0 0 1 5 

E N T R 

A N C E 

TWO 

4 0 K 0 4 

T U 

A 0 0 0 0 

0 0 K 1 2 




4 0 K 0 5 

R A 

0 0 K 0 1 

0 1 C 0 4 

SET 

EXIT 


4 0 K 0 6 

S S 

0 0 C 0 3 

0 0 0 1 5 

SET 

UP PAR 

4 0 K 0 7 

T U 

A 0 0 0 0 

0 0 K 0 9 

W D 

A D D R E 

s s 

4 0 K 0 8 

T P 

0 0 C 0 0 

0 1 T 0 9 

ZERO 

TO F 


4 0 K 0 9 

T P 

0 0 0 0 0 

Q 0 0 0 0 

S T 0 R 

E PAR 

W D 

4 0 K 1 0 

Q T 

0 1 C 0 2 

0 0 T 0 3 

E X T R 

ACT L 0 C 

4 0 K 1 1 

T U 

Q 0 0 0 0 

0 0 K 1 6 

E X T R 

ACT M 


4 0 K 1 2 

S P 

0 0 0 0 0 

0 0 0 0 0 

4 VS 

N 1 


4 0 K 1 3 

T J 

0 1 C 0 0 

0 0 K 2 5 

N 1 M 

1 N U S 

4 

4 0 K 1 4 

S T 

0 1 C 0 0 

0 1 T 0 8 

T 0 

N 1 


4 0 K 1 5 

R P 

3 0 0 0 4 

0 0 K 1 7 

S T 0 R 

E 4 


4 0 K 1 6 

T P 

0 0 0 0 0 

0 1 T 0 0 

NUMBERS 


4 0 K 1 7 

R S 

0 0 T 0 3 

0 0 C 0 3 




4 0 K 1 8 

R P 

1 0 0 0 4 

0 0 K 2 0 

S T 0 R 

E 4 


4 0 K 1 9 

A T 

0 0 C 0 3 

0 1 T 0 4 

L 0 C 

A T 1 0 N 

s 

4 0 K 2 0 

R A 

0 0 T 0 3 

0 1 C 0 0 

A D V 

L 0 C 4 


4 0 K 2 1 

R A 

0 0 K 1 6 

0 1 C 1 7 

A D V 

M 4 
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4 

0 K 

2 

2 

R J 

0 7 K 2 4 

0 2 K 0 0 

R U 

N 


1 


C 

Y 

C 

L 

E 


4 

0 K 

2 

3 

S P 

0 1 T 0 8 

0 0 0 0 0 

T E 

S 

T 


F 

0 R 


E 

N 

D 

4 

0 K 

2 

4 

Z J 

0 0 K 1 3 

0 0 K 0 1 

0 

F 


N 

U 

M B 

E 

R 

S 


4 

0 K 

2 

5 

T P 

0 0 C 0 0 

0 1 T 0 8 

Z E 

R 

0 


T 

0 


N 

1 



4 

0 K 

2 

6 

T N 

A 0 0 0 0 

A 0 0 0 0 

M 1 

N 

U 

S 


N 

1 





4 

0 K 

2 

7 

A T 

0 1 C 0 0 

0 1 T 0 9 

4 

M 

1 

N 

U 

S 


N 

1 



4 

0 K 

2 

8 

M J 

0 0 0 0 0 

OOK15 

T 0 


F 








4 

1 K 

0 

0 

S P 

0 0 K 0 1 

0 0 0 1 5 












4 

1 K 

0 

1 

T U 

A 0 0 0 0 

0 1 K 0 5 












4 

1 K 

0 

2 

T P 

0 1 C 0 1 

0 1 T 0 9 

3 

T 

0 


F 







4 

1 K 

0 

3 

T V 

0 0 K 1 9 

0 1 K 0 8 

S E 

T 


1 

N 

1 

T 

1 

A 

L 


4 

1 K 

0 

4 

T V 

0 0 K 1 6 

0 1 K 1 0 

A D 

D 

R 

E 

S 

S 

E 

S 



4 

1 K 

0 

5 

T P 

0 0 0 0 0 

Q 0 0 0 0 

PAR 


W 

D 


T 

0 


Q 


4 

1 K 

0 

6 

Q T 

0 1 C 0 3 

A 0 0 0 0 

TE 

S 

T 


F 

0 

R 





4 

1 K 

0 7 

Z J 

0 1 K 1 7 

0 1 K 0 8 

P A 

R 

A 

M 

E 

T 

E 

R 


W D 

4 

1 K 

0 8 

Q T 

0 1 C 0 2 

0 1 T 0 4 

S T 

0 

R 

E 


L 

0 

C 




4 

1 K 

0 9 

T U 

Q 0 0 0 0 

0 1 K 1 0 












4 

1 K 

1 

0 

T P 

0 0 0 0 0 

0 1 T 0 0 

S T 

0 

R 

E 


N 

U 

M 

B 

E 

R 

4 

1 K 

1 

1 

R A 

0 1 K 0 5 

0 0 C 0 2 












4 

1 K 

1 

2 

R A 

0 1 K 0 8 

0 0 C 0 3 












4 

1 K 

1 

3 

R A 

0 1 K 1 0 

0 0 C 0 3 












4 

1 K 

1 

4 

1 J 

0 1 T 0 9 

0 1 K 0 5 












4 

1 K 

1 

5 

R J 

0 7 K 2 4 

0 2 K 0 0 

R U 

N 


1 


C 

Y 

C 

L 

E 


4 1 K 

1 

6 

M J 

0 0 0 0 0 

0 1 K 0 2 

R E 

P 

E 

A 

T 







4 

1 K 

1 

7 

L Q 

0 1 K 0 5 

1 0 0 2 1 

S E 

T 


U 

P 


E 

X 

1 

T 


4 

1 K 

1 

8 

T V 

Q 0 0 0 0 

0 0 K 0 1 












4 

1 K 

1 

9 

S P 

0 1 T 0 9 

0 0 0 0 0 

E X 

1 

T 


1 

F 


F 




4 

1 K 

2 

0 

E J 

0 1 C 0 1 

0 0 K 0 1 

E 

Q 

U 

A 

L 

S 


Z 

E 

R 

0 

4 

1 K 

2 

1 

A T 

0 0 C 0 3 

0 1 T 0 9 

A D 

D 


0 

N 

E 


T 

0 


F 

4 

1 K 

2 

2 

T P 

0 0 C 0 0 

0 1 T 0 8 

Z E 

R 

0 


T 

0 


N 

1 



4 

1 K 

2 

3 

M J 

0 0 0 0 0 

0 0 K 2 2 












4 

2 K 

0 

0 

E F 

3MG01 

0 1 C 0 5 

S T 

A 

R 

T 


C 

Y 

C 

L 

E 


4 

2 K 

0 

1 

R P 

1 0 0 3 6 

0 2 K 0 3 

C L 

E 

A 

R 








4 

2 K 

0 

2 

T P 

0 0 C 0 0 

1 M G 0 0 

C 

A R 

D 


1 

M 

A 

G 

E 


4 

2 K 0 

3 

T P 

0 1 C 0 1 

0 0 T 0 1 

S E 

T 


W 








4 

2 K 

0 

4 

T U 

0 2 C 0 3 

0 2 K 1 4 

1 N 

1 

T 

1 

A 

L 


N 




4 

2 K 

0 

5 

T U 

0 7 K 2 5 

0 7 K 3 0 

A 

N 

D 


L 

0 

C 


A 

D 

R 

4 

2 K 

0 

6 

T P 

0 1 C 0 0 

0 0 T 0 0 

F L 

0 

A T 

1 

N 

G 


0 

N E 

4 

2 K 

0 

7 

T P 

0 1 C 0 1 

0 0 T 0 2 

B R 

E 

A 

K 


C 

N 

T 

R 



4 

2 K 

0 8 

T U 

0 2 K 0 0 

0 6 K 0 2 

1 N 

1 

T 

1 

A 

L 


C 

A 

R 

D 

4 

2 K 

0 9 

T U 

0 2 C 0 2 

0 2 C 0 0 

1 

M 

A 

G 

E 







4 

2 K 

1 0 

T U 

0 2 K 0 0 

0 7 K 0 0 


A 

D 

D 

R 

E 

S 

S 

E 

S 


4 

2 K 

1 1 

R S 

0 2 K 1 4 

0 0 C 0 2 

A D 

V 


N 

U 

M 

B 

E 

R 



4 

2 K 

1 2 

T V 

0 2 K 0 6 

0 2 C 0 0 












4 

2 K 

1 3 

1 J 

0 1 T 0 9 

0 2 K 1 6 

T E 

S 

T 


F 







4 

2 K 

1 4 

T P 

0 1 T 0 4 

A 0 0 0 0 












4 

2 K 

1 

5 

M J 

0 0 0 0 0 

0 3 K 0 0 












4 

2 K 

1 6 

Q T 

0 0 C 0 0 

0 0 C 0 0 

M A 

K 

E 


R 

0 

U 

T 

t 

N 

E 
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4 2 K 1 7 

T V 

0 2 K 1 6 

0 2 C 0 0 

1 N 0 P E R A 

T 1 V E 

4 3 K 0 0 

T P 

0 0 C 0 0 

0 0 T 0 6 

ZERO TO 

D 

4 3 K 0 1 

T V 

0 2 K 1 6 

0 7 K 0 0 

SET UP 


4 3 K 0 2 

S J 

0 3 K 0 3 

0 3 K 0 4 

SIGN OF 


4 3 K 0 3 

T V 

0 2 K 0 6 

0 7 K 0 0 

NUMBER 


4 3 K 0 4 

Z J 

0 3 K 0 5 

0 4 K 2 1 



4 3 K 0 5 

T M 

A 0 0 0 0 

Q 0 0 0 0 



4 3 K 0 6 

Q T 

0 1 C 0 6 

A 0 0 0 0 

TEST FOR 

B 1 T 

4 3 K 0 7 

Z J 

0 3 K 0 8 

0 3 K 1 5 

IN 2 7 


4 3 K 0 8 

Q T 

0 1 C 0 7 

0 0 T 0 4 

M TO 3 3 T 3 4 

4 3 K 0 9 

L A 

0 0 T 0 4 

0 0 0 0 8 

SCALE TO 

3 5 

4 3 K 1 0 

Q T 

0 1 C 0 8 

A 0 0 0 0 



4 3 K 1 1 

S S 

0 1 C 1 1 

0 0 0 0 8 



4 3 K 1 2 

T P 

B 0 0 0 0 

A 0 0 0 0 



4 3 K 1 3 

T P 

A 0 0 0 0 

0 0 T 0 5 

B TO 3 3 T 3 5 

4 3 K 1 4 

S J 

0 5 K 0 0 

0 4 K 0 0 



4 3 K 1 5 

R J 

0 7 K 2 4 

0 7 K 2 0 

P U'N C H C A 

R D 

4 3 K 1 6 

1 1 

0 1 C 0 9 

75756 BRB 

TAG WORD 


4 3 K 1 7 

M J 

0 0 0 0 0 

0 0 K 0 0 

TO ALARM 


4 5 K 0 0 

T M 

A 0 0 0 0 

A 0 0 0 0 

TEST A B S 

B 

4 5 K 0 1 

T J 

0 1 C 1 9 

0 5 K 0 7 

AGAINST 

3 4 

4 5 K 0 2 

R S 

0 0 T 0 6 

0 1 C 1 2 

D MINUS 

1 0 

4 5 K 0 3 

M P 

0 1 C 2 3 

0 0 T 0 4 

MULT N U M 

B E R 

4 5 K 0 4 

T P 

B 0 0 0 0 

0 0 T 0 4 

BY 10 TO 

1 0 

4 5 K 0 5 

R A 

0 0 T 0 5 

0 1 C 1 9 

REDUCE A 

B S B 

4 5 K 0 6 

M J 

0 0 0 0 0 

0 5 K 0 0 



4 5 K 0 7 

M P 

A 0 0 0 0 

0 1 C 1 0 

COMPUTE 

D 

4 5 K 0 8 

T P 

B 0 0 0 0 

Q 0 0 0 0 



4 5 K 0 9 

T N 

B 0 0 0 0 

A 0 0 0 0 

COMPUTE 


4 5 K 1 0 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45 > California 

Definite Integral Evaluation Routine 
Specifications 


Identification Tag: DIE-0 

Type: Subroutine 

Assembly Routine Spec: SUB 49810 05804 

Storage: 54 instructions, addresses 

00P00 thru 00P07 
00S00 thru 00S26 
00N00 thru 00N18 

4 constants in program, addresses 
01C00 thru 01C03 

58 words total program storage, addresses 
00P00 thru 00PO7 
00S00 thru 00S26 
00N00 thru 00N18 
OICOO thru 01C03 

10 words temporary storage pool used, addresses 
00027b (00T00) thru 00040b (00T09) 

The constant pool is used by this routine 


Drum Assignment: 

Addresses 63122b thru 63213b 

Program Entrance: 

Address 00P02 


Program Exit: 

Address 00P01 


Mode of Operation: 

Fixed point 


Coded by: 

F. Meek 

June 7, 1955 

Code Checked by: 

R. Bigelow 

June 10, 1955 

Machine Checked by: 

F. Meek 

July 7, 1955 

Approved by: 

W. Bauer 

July 26, 1955 





Description 
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Assuming that y = f(x) is a tabulated function with equal increments in the 
argument (xq, x^, x^» • • . , ^ n )> this routine will approximate the definite 
integral 



using either Simpson's rule or a modification of Simpson's rule. 

The function values may be stored in ascending order of the argument in any 
block of consecutive storage cells. 


At the time of entry into the subroutine the programmer must supply the value 
of n (that is, the number of intervals, one less than the number of points) 
and the address of the cell containing the first function value y^ = fCx^). 


The routine gives as a result an approximation to 





ydx 


and the programmer must then multiply this result by (x - x^) to obtain the 
approximation to the integral itself. 


Notation 

I = | n f(x) dx, J = _i_ I. 

(x - x_) 

; x Q n 0 

I* and J" are approximations to I and J, respectively, 
e = I* - I. 


Range of y^, J", and n 


The only restriction on the y.'s is that they must be single precision fixed 
point numbers. The number of intervals n must be greater than one but can be 
arbitrarily large. The result J" will be given scaled by the same amount that 
the y i 's were scaled. 

In order to obtain the maximum significance for J’' the y^'s should be scaled as 
far to the left as possible. 

Programming Instructions 

Before entering the routine the function values y. must be stored in ascending 
order of the arguments in consecutive storage cells. 
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1. Piece n»2° in A . 

2. Piece the address of y^ = fCx^) in 

3. Enter the routine with the instruction U OOKOl 00K02 (assuming 00K00 is the 
region that was assigned to the routine during assembly) 

At the time of exit from the routine the result J* is left in A, scaled by the 
same amount that the y.'s were scaled. The numbers y. have been left in their 
original state. 

Mathematical Analysis 

Let the equal increment of x be denoted by 

h = x. - x. t = x - x„>0, i = 1, 2, . . . , n. 
x l-l n 0 

n 


Suppose I is to be approximated by a quadrature formula of the form 

n n 

I* = h } c. f (x.) = x — x n "5“ c. y. 

x i i n 0 l J i 

1=0 - i =0 

n 

where the c^ are the appropriate coefficients, e.g., for the trapezoidal rule 

c_ = c = l/2 and c. = 1 otherwise. Let 
On 1 


n 


J* = l/n ]T G i 
i=0 


Then 


I* = (x n - x 0 ) J* 


Notice that J‘ ;f does not involve x, and therefore J" can be computed without regard 

to the scaling of x. For this reason J“ rather than I" is obtained by the subroutine. 

If n is even Simpson's rule is used throughout the interval (x^, x n )* If n is odd 

Simpson's rule is used over the interval (xq, x n _ 3 ) a nd Newton's three-eighths rule 

is used over the interval (x o, x ), 

n-j n 

therefore 

J* = l/3n (y Q + 4y x + 2y 2 + 4y 3 + 2y^ + . . . + 4y n _ 1 + y n ) for n even, and 

= l/3n ( ^o + 4 yi + 2y 2 + • • • + 4y n _, + y n _ 3 ) + 

+ 3/8n (y n _ 3 + 3y n _ 2 + 3y n _ x + y n ) for n odd. 





Error Analysis 
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Let a be some value in the closed interval (x„,x ) and let B and y be values in 

O n r ' 

the closed intervals ( x Q» x n ^) and (x^ 3 > x n ) respectively. 


If d 4 y is continuous throughout the interval ( x Q> x n ) ar >d if n is even 


£ = y 4 (a) (x n - x Q ) 5 , where y 4 (a) = d^; 


l80n‘ 


T 


SLZ 

dx4 


x=a 


If d v is continuous throughout the invertal (x^jX^ ^) and exists throughout the 
dx4 


interval (x ^,x ) and if n is odd 
n-y n 


£ = l/n^ 


n-j 

180 


80 


- 

— 

— 

) 

X 

- x_ 


n 

0 


— 



For the derivation of these quadrature formulas and their error terms, see mine's 
Numerical Calculus, pp. 120 thru 124- 

Machine Time 

The time required for this subroutine is (2.25 + .62n) ms, n ^ 3. When n = 3 the 
time required is 2.73 ms. 

Ms chine Checking / 

Two preliminary test cases were run: 

1. n = 99, y 1 = -(2^-l) for all i. The result obtained was -2'^'* (it should have 
been -(2' >;> -l). 


2. n = 98, y^ = (2^-l) for all i. The correct result, (2^^-l), was obtained. 
In addition, the following computations were performed: 

1. SIN-0 was used to produce a table of sines and cosines for the arguments 
y = ttX/ 2 = (7r/2)*n*2 4 , n = 0, 1, 2.99. 


2. 


fb pb 

Let S = cos ydy = sin b and G = sin ydy = 1-cos b. DIE-0 was used to 

JO 'n 


= (Tr/2)-n-2 4 , 


n 2, 3, 4, • 

n = 10,15,20,25 
n = 30,40,50, . 
n = 99 


9 , 

. 90, and 


compute S* and G* for b 
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3. For each b (or n) = S w -sin b and c = C* - 1 + cos b were computed. The 
following tables resulted: 


n 

c -10 6 
s 

e -lo' 
c 

2 

.101 

.010 

3 

.338 

.050 

4 

.197 

.039 

5 

.422 

.125 

6 

.287 

.087 

7 

• 490 

.215 

8 

.365 

.151 

9 

.540 

.316 

10 

.429 

.229 

15 

.560 

.650 

20 

.477 

.713 

25 

.200 

1.056 

30 

.101 

1.022 

40 

-.365 

.881 

50 

-.506 

.415 

60 

-.198 

.039 

70 

.286 

.087 

80 

.516 

.516 

90 

.286 

.945 

99 

-.338 

.981 


It was to be expected that, in general, the errors would be greater for n odd. The 

overall behavier of c and c is easily seen to be consistent with the fact that 

s c J 

c and e represent the errors in integrating the cosine and the sine respectively, 
s c 

For example, is small for n = 30 because it is the error obtained in 



In fact, c for n = 30 (b = (15/i6)tt) is exactly equal to c for n = 2 (b = (i/i6)ti). 
s s 

Evidently, all the errors and are less than their corresponding maximum estimates 

as computed by the formulas above under E rror estima te. In particular, for n = 10 and 15 
the following maximum error estimates were hand computed: 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45, California 


Floating Point Exponential Routine 
Specifications 


Identification Tag: EXP-3 


Type: 

Assembly Routine Spec: 
Storage: 


Subroutine 

SUB 50230 04715 

32 instructions, addresses 
00E00 thru 00E31 
01E00 thru 01E31 

15 constants in program, addresses 
02E00 thru 02E14 
03E00 thru 03E14 

47 words total program storage, addresses 
00E00 thru 00E31 
01E00 thru 01E31 
02E00 thru 02E14 
03E00 thru 03E14 

2 words temporary storage pool used, addresses 
00027b thru 00030b 

The constant pool is used by this routine 


Program Entrance: 
Program Exit: 
Alarm Exit: 


Address 00E02 (01E02) 

Address OOEOl (OlEOl) 

The alarm exit is used by this routine 


Drum Assignment: 
Machine Time: 

Mode of Operation: 


Addresses 63766b thru 64045b 
4.3 ms average, 5*46 ms maximum 
Floating point 


Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


M. Perry 
R. Bigelow 
M. Perry 
W. Bauer 


July 27, 1955 
July 27, 1955 
August 8, 1955 
August 10, 1955 
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Description 

When supplied with an argument X in SNAP form this routine will compute the 
exponential (e x ) using a Rand Polynomial Approximation producing the answer 
in SNAP form. 

Programming Instructions 

This routine can be inserted into a program by CKP-0 by the use of a "SUB" 
card in the input deck. 

1. Place the double length extension of X in the accumulator . 

X must be in SNAP form. 

2. Return Jump to the subroutine . Assuming that the subroutine was assigned 
to region 00K00 for assembly, use the instruction RJ 00K01 00K02. 

3. At the time of exit from the subroutine , the double length extension of e 
in SNAP form will be in the accumulator. 

Error Analysis 

x -26 x 

For X<2, the error in e is less than 2 , for X>2, the error in e is less 

- () 

than 2 ' where E is the binary power of X. 

Mathem atica l Analysis 

1 . e x = ( 2 -129). 2 4°e 2 e+129) 

2. Divide (X-log^e + 129) into an integral part R and a fractional part S. 

By the necessary limitations on X, R^O, 0^S>1 

3. e X = ( 2 R_129 )( 2 S ) 



4. 2° is evaluated using the Rand Polynomial Approximation number 20. (2^ = 10 "*‘°^ 1 C 

5. Since 03=3 >1 , 1^2 S >2 

1 / 2 ^ 2 S / 2>1 

S 

6 . R-128 is the characteristic of the answer in floating notation, and 2 is 
the mantissa. 

Range of Variable 

7 7 

An alarm will result if X is greeter than .693 x 2 . If X is less than -.693 x 2 , 

the answer will be zero, but no alarm will occur. Essentially, the exponential of 

any number can be found, provided that exponential can be expressed in SNAP form. 
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Alarm Conditions 


An alarm print will occur if the variable falls outside the permissible range 
stated above. The flexowriter will print "alarm" and the address of the cell 
in the main program containing the RJ instruction which was used to enter 
EXP-3. 

Pushing the start button after an alarm halt will transfer control to the exit 
of EXP-3. 
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Identification Tag: 
Type: 

Storage: 


The Ferranti Input Routine 


Specifications 


FRI-O 


Service routine (with a subroutine entrance 
provided) 

91 instructions, addresses 40001 b and 
75160b thru 75174b 
75177b thru 75256b 
75260b thru 75314b 

16 constants in program, addresses 75175b, 
75176b, 75257b, 75333b, and 75315b thru 
75330b 

2 words temporary storage used in program, 
addresses 75331b thru 75332b 

109 words total program storage, addresses 
40001b and 75160b thru 75333b 

The constant and temporary storage pools are 
not used by this routine 


Service Entrance: 

Address 40001b 


Program Entrance: 

Address 75l6lb 


Program Exit: 

Address 75173b 


Mode of Operation: 

Fixed point 


Coded by: 

R. Beach 

May 18, 1955 

Code Checked by: 

R. Summers 

May 19, 1955 

Machine Checked by: 

R. Beach 

August 4, 1955 

Approved by: 

W. Bauer 

August 29> 1955 
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I. General 

This routine is designed to read, by means of the Ferranti reader, seven-level 
bioctal tape prepared as described below. The routine reads in paper tape at 
the full speed of the Ferranti with only short hesitation when a check or insert 
address is encountered. 

If desired, the tape may contain a check sum to be tested for agreement with the 
computed sum of the data read-in. The routine will read data into any ES or KD 
cell although the reading of information into certain drum cells (as described 
in detail below) will result in abnormal operation. 

The routine stores the contents of F;S on MD at addresses 76000b through 77777b 
and then transfers itself to ES. It sums itself (in ES) and checks the sum 
against the correct sum (stored on KD). 

The Ferranti reader is started in the free running mode and the routine proceeds 
to read tape and process the information contained on the tape in the same manner 
as does the ERA photoelectric reader (for exceptions, see II. 3 and 4)* 

Each word to be transferred to memory is summed as it is read in from tape. Words 
which are to be read into ES are first stored in the MD image of ES (76000b thru 
77777b). 

During operation all words are read into ES from the tape and a block transfer to 
MD is made when (l) ES has been filled with data (that is, when 924 words have 
been read in); (2) an insert address appears on the tape; or (3) the "end of tape" 
seven-level combination has been read in (see II. 4)» 

The reader is stopped before making the ti’ansfer and is started again after the 
transfer has been completed in the first two cases; in the last case, the reader 
is stopped, ES is restored from the KD image and control is transferred to the 
exit. 

The reader is also halted when a check address appears on the tape. If no check 
sum test (see II. 3) is to be made after a successful check address test the 
reader Is started immediately; if the check sum test is specified the reader is 
started after the test is made and the sum determined to be correct. 

The routine does not prevent read in to addresses 40001b, 75160b thru 75333b, or 
76000b thru 77777b. A tape specifying loading into these cells will ordinarily 
not be read in correctly. 

II. Requirements for Tape Preparation 

1. The first word on a tape must be an insert address. 

2. Check addresses should be used, although FRI-0 will operate without them. 
A check address immediately following an insert address must be the same 
as the insert address. 

3. For a check sum test the following four words must appear on the tape at. 
the point where the sum is to be tested: 
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1) Insert address 75202b 

2) High order 36 bits of check sum 

3) Low order 36 bits of check sum 

4) Check address 75204b 

Operating Instructions (to be followed when the routine is used as a service routine) 

1. Set PAK to 40001b and star t. 

2. Computation will halt with the MS instruction 56 00000 40001 at the completion 
of the read in. 

Programming Instructions (to be followed when the routine is used as a subroutine) 

1. Enter the routine with the RJ instruction 37 75173 75161 . 

2. Control is returned to the cell immediately following the RJ instruction as 
soon as an "end of block" punch is reached on the tape. 

Alarm Conditions 


1. No "end of tape" punch . This condition is indicated by the tape running com¬ 
pletely out of the Ferranti reader. When such a condition occurs the operator 
should 

a. Master clear 

b. Set PAK to 00074b and start 

c. Elien computation halts (when a service entry was used) with the MS 
instruction 56 00000 40001 the machine will be returned to its original 
state and the data read from the tape will be properly stored. 

If a program entry was used control will be transferred to the proper 
cell in the main program. 

2. FRI-0 not transferred to ES correctly . If ALR-1 prints "FRI*0 75165" and (A) 
and (Q), the sum of the program transferred to ES has failed to check. Start¬ 
ing at this point transfers FRI-0 to ES again. 

A second failure indicates that FRI-0 is not on the drum correctly and should 
be restored. 

3. Check address failure . If ALR-1 prints"ALAR|C" and (A) and (Q), a check 

address has failed. In the alarm print (A^) is the address of the next cell 

to be loaded and (Q) is the check address that was read in from paper tape. 

Starting at this time will cause the machine to ignor the failure and operation 
will continue normally. 

4. Check sum failure . If ALR-1 prints "ALAR|k" and (A) and (Q), the check sum on 
the tape has failed to agree with the computed sum. 

Starting at this point will cause the routine to ignor the failure and to begin 
+ <~> -in +.he taoe a sain j__ 
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If at any time (ES) need be restored from its image, starting at 40040b 
vr 11 transfer the image to ES and transfer control to the FRI-0 exit. 

5. And "end of tape" (or "end of block") punch must be present on the tape 
to halt read in. This consists of seventh level punches in two consecu¬ 
tive frames on the tape at the point where the read in is to be stopped. 
This seventh level combination acts as a signal to FRI-0 to restore (ES) 
and stop the Ferranti reader. It is compatible with the ERA photoelectric 
reader in that it is an illegal combination which halts the ERA reader. 
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Simplified Ferranti Input Routine for Bootstrap Procedure 

Specifications 


Identification Tag: 
Type: 


Storage: 


Entranc e: 


FRI-1 

Service routine, but not available as part of 
service routine library 

17 instructions, addresses 00000b thru 00020b 

6 constants in program, addresses 00021b thru 
00025b and 00027b 

1 word of temporary storage in program, address 
00026b. Two words of temporary storage not 
in program, addresses 00030b and 00040b. 

The temporary and constant storage pools are not 
used by this routine. 

00000b (automatic entrance from keyed in binary 
card read in routine). 


Coded by: 

R. Beach 

April 1, 1955 

Code Checked by: 

R. Summers 

April 2, 1955 

Machine Checked by: 

R. Beach 

April 12, 1955 

Approved by: 

U. Bauer 

August 23, 1955 





Description 


FRI-1 

Pgo 2 of 3 
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This routine is a simplification of FRI-0 which can be contained on one 
binary card. It is used, as part of the bootstrap procedure, to read 
FRI-0 into ES. The routine reads tape into ES recognizing only insert 
addresses, data words, and the "end of tape" seven-level combination. 
When it finds the "end of tape" combination it transfers control to the 
transfer instructions at 00050b thru 00053b. The transfer instructions 
stop the reader, clear cells 40001b thru 40040b, 70000b thru 75777b, and 
60000b thru 67777b, transfer FRI-0 to its proper location on HD and then 
transfer control to FRI-0. 

Operating Instructions 

See the "Bootstrap Procedure" in the "Utility Routine Library Handling 
Package" description. 
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Floating Point Natural Logarithm Routine 


Specifications 


Identification Tag: LOG-2 

Type: Subroutine 

Assembly Routine Spec: SUB 50190 03810 

Storage: 28 instructions, addresses 

0LN00 thru 0LN27 
1LN00 thru 1LN27 

10 constants in program, addresses 
2LN00 thru 2LN09 
3 mOO thru 3LN09 

38 words total program storage, addresses 
OmOO thru 0LN27 
1LN00 thru 1LN27 
2LN00 thru 2m09 
3 KIOO thru 3LN09 


3 words temporary storage pool used, addresses 
00027b thru 00031b 

The constant pool is used by this routine 


Program Entrance: 
Program Exit: 
Alarm Exit: 


Address 0m02 (im02) 

Address 0IN01 (lLNOl) 

The alarm exit is used by this routine 


Drum Assignment: 
Machine Time: 

Mode of Operation: 


Address 637l6b thru 63763b 
3.37 ms average, 4*12 ms maximum 
Floating point 


Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


M, Perry 
R. Bigelow 
M. Perry 
W. Bauer 


July 27, 1955 
July 27, 1955 
August 8, 1955 
August 10, 1955 
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Description 

When supplied with an argument X in SNAP form this routine will compute the 
natural logarithm of X using a Rand Polynomial Approximation, producing an 
answer in SNAP form. 

Programming Instructions 

This routine can be inserted into a program by CMP-0 by the use of a "SUB" card 
in the input deck. 

1. Piece the double length extension of X in the accumulator . X must be in 
SNAP form. 

2. Return Jump to the subroutine . Assuming that the routine was assigned 
to region 00K00 for assembly, use the instruction RJ 00K01 00K02. 

3. At the time of exit from this routine , the double length extension of In 
X in SNAP form will be in the accumulator. 

Error Analysis 

-26 

The error in the result of this routine is less than 2 
Mathematical Analysis 

1. Let X = M*2® 

Then In X = (in 2)(log 2 X) 

= (in 2) log 2 (K.2 e ) 

= (In 2) e-1 + log 2 (2M) 

2. Log 2 (2M) is found by evaluating the Rand Polynomial Approximation Number 42, 
with argument 2M. 

3. Since l/2 ^M<.1, 1 ^2M< 2 and log 2 (2M) is between 0 and 1. 

Range of Variable 

The logarithm of any number x, (X>0) may be evaluated by this routine provided 
X can be expressed in SNAP form. 

Alarm Conditions 

An alarm print will occur if the variable falls outside the permissible range 
stated above. The flexowriter will print "alarm" and the address of the cell 
in the main program containing the RJ instruction which was used to enter LOG-2. 


Pushing the start button after an alarm halt will transfer control to the exit 
of LOG-2. 
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Identification Tag: 
Type: 

Storage: 


The Bloctal Memory Dump 

Specifications 

MDP-1 

Service routine (with a program entry available) 

157 instructions, addresses 40005b, 

74703b thru 74754b 
74760b thru 75141b 

,17 constants in program, addresses 
74755b thru 74757b 
75142b thru 75157b 

174 words total program storage, addressajs 
74703b thru 75157b 

10 words temporary storage pool used, addresses 
00027b thru 00040b 

The constant pool is used by this routine 


Service Entrance: 
Program Entrance: 
Program Exit: 
Alarm Exit: 


Address 40005b 
Address 74705b 
Address 74704b 

The alarm exit is used by this routine 


Drum Assignment: 
Machine Time: 

Mode of Operation: 


Addresses 74703b thru 75157b 
21 seconds per 100 words maximum 
Fixed point 


Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


W. Dixon 
C. Koos 
W. Dixon 
W. Bauer 


August 15, 1955 
August 20, 1955 
September 15, 1955 
September 19, 1955 
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This routine will dump onto bioctal tape the contents of any specified number 
of consecutive storage pells. It feeds leader and trailer, inserts insert 
and check addresses and check sums, and may place a double seven-level punch 
(required to stop FRI-O) at the end of each dump. 

The tape produced can be read back into the 1103 with the Ferranti reader 
(using FRI-O) or with the ERA photoelectric reader. However, when using the 
photoelectric reader one should note that the check sum will be read into 
cells 75702b and 75703b and that the double seven-level combination will stop 
the reader by causing a fault. 

/ 

This routine stores (ES) in cells 76000b thru'77777b while operating and at 
its conclusion restores (ES), (A), (Q), and (Fl) to their original state. 

Operating Instructions (to be followed when the routine is used as a service 
routine) 

1. Set PAK to 40005b and start . 

2. Computation will halt with the MS instruction 56 00000 74730 and Q will 
be cleared. 

3. Manually enter the parameter word in Q . Place the address of the first 
cell to be dumped in Q and the address of the last cell to be dumped in 

Q . 

v 

The range of the dump may extend from ES addresses to drum addresses. 

For example, if the word 00 00200 40050b is placed in Q, the routine 
will dump cells 00200b through 01777b and 40000b through 40050b. 

If an FRI-O stop code is to be punched on the tape following the dump 
place a 01 in the operation portion of Q. If no stop code is to be 
punched place an 00 in the operation portion of Q. 

4» Start. 

5. Computation will halt at the conclusion of the dump with the MS instruction 
56 00000 74706. 

6. For another dump one need only push the start button and return to step 2 
above. 

Programming Instructions (to be followed when the routine is used as a subroutine) 

1. Enter the routine with the RJ instruction 37 74704 74705 B. 

2. Enter the parameter word . If the RJ instruction is in cell n the parameter 
word (as described in operating instruction 3 above) must be placed in cell 
n + 1. 

3. At the conclusion of the routine control will be transferred to the instruction 


in cell n + 2 






Alarm Conditions 
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An alarm print will occur if an unacceptable parameter word has been supplied 
to the routine. Any one of the following three conditions will produce an 
alarm print; 


«u> Q v 

02000b 40000 b 

02000b <c;Q v <T 40000 b 


If the service entrance was used the Flexowriter will print "MDP-1 74705". 
The operator ipay push the start button at this time and return to operating 
instruction 2 for another dump. 

If the program entrance was used the Flexowriter will print "MDP-1" and the 
address of the cell in the main program containing the unacceptable parameter 
word. Pushing the start button at this time will transfer control to the 
exit of MDP-1. 

Manual Restore 

If the operator wishes to stop a dump before its normal completion he may 

1. Force stop while the punch is operating. 

2. Set PAK to 40040b and start . 

3. Computation will halt with an MS instruction in cell 74704b (the MDP-1 
exit). 

If the service entrance has been used the operator may push the start button 
and return to operating instruction 2 for another dump. 

If the program entrance has been used pushing the start button will cause a 
normal exit from the routine. 
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0 0 0 0 1 

7 6 0 0 1 
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Identification Tag: 
Type: 

Assembly Storage Spec: 
Storage: 


Drum Assignment: 

Program Entrances: 
Program Exit: 
Machine Time: 

Mode of Operation: 

Coded "by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


THE RAMO-WOOLDRLDGE CORPORATION 
Los Angeles 45, California 


Gill Method Subrout ine 

Specifications 

NUI-3 

Subroutine 

SUB 49880 07414 

59 instructions, addresses 
OGMOO thru 0GM40 
1GMQ0 thru 1GM17 

15 constants in program, addresses 
OGCOO thru 0GC14 

74 words total program storage, addresses 
OGMOO thru 0GM40 
1GM00 thru 1GML7 
OGCOO thru 0GCl4 

10 words temporary storage pool used, addresses 
00027b (0GT00) thru 00040b (0GT09) 

Addresses 63230 b thru 63354b 


Addresses 0GM02, 0GM03, and 0GM04 
Address 0GM01 

( 10.3 n + 1 . 9 ) ms per point average, where n 
equals the number of equations in the system 

Fixed point 


J. 

Carlson 


R. 

Douthitt 


M. 

Elmore 


R. 

Summers 


M. 

Elmore 

June 8, 1955 

M. 

Elmore 

July 7, 1955 

W. 

Bauer 

July 22 , 1955 
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The Gill Method Subroutine integrates a system of first order, differential 
equations using a step-by-step process. Using the values of the variables at a 
point and the coding for computing the derivative of each of the dependent variables 
at that point, the Gill Method Subroutine produces the coordinates for the nesd: 
point of the solution each time it is entered. 

A special entrance sets up the subroutine for a particular system of equations, 
thus allowing the subroutine to solve concurrently several different systems in the 
same program. 

The independent variable is incremented within the subroutine itself. 

Motation 

The system of equations to be solved is 


dy i 

dx~ = f i y l' y 2' ' * ‘ ' y n^ (i = 1> 2, . . . , n). 

q^ are intermediate values of the calculation (zero initially) 

Ax is the increment of the independent variable x 
h is the binary scaling power of x (i.e. x*2^ is in the computer) 
h-1 is the binary scaling power of Ax 
nu is the binary scaling power of y^ 

f is the common difference between the scaling power of y. end the scaling 
dy i 

power of for each i. 


m 


i 


f is the binary scaling power of 



dx 


L = 73 + f - h 


Programming and Operating Instructions 

Assign the Gill Method Subroutine to some arbitrary region, say OGMOO. 

In order to solve a given system, the following array of variables, derivatives, 
intermediate values, and parameters should be assigned a region, say OGMOO. 
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OGNOO 

L 



OGN01 

00 0GN05 0GN06 



0GN02 

n-1 



0GN03 

Ax 

scaled 2* 1 " 

•1 

OGNOt 

nr 

scaled 2* 1 


0GIT05 

dy i 

dx 

scaled m^ 

- f 

0GE06 

y l 

scaled m^ 


0GN07 

q l 

initially 

zero 

0GN08 

^2 

dx 

scaled m^ 

- f 

0GN09 

y 2 

scaled m^ 


0GN10 

^2 

initially 

zero 


In addition, the coding for computing for all i, (i = 1, 2, . . . , n) should 

he assigned a region, say ODEOO. This coding will use the values in region OGNOO 

to compute all as specified by the equations in the system and should place the 

results in the appropriate places in region OGNOO. It should then exit to the Gill 
Method Subroutine with an MJ 00000 OGMOt (see below). 

Assuming the Gill Method Subroutine is in region 0GM00, the three entrances are 
0GM02, 0GM03, and OGMOU. The exit is 0GM01. 

The first entrance, 0GM02, is used for setting up the Gill Method Subroutine only 
for the particular system to be solved. It is entered by an RJ command followed 
by a parameter word which specifies the location of the variables, and the location 
of the coding for calculating the derivatives: 

RJ 0GM01 0GM02 
00 OGNOO ODEOO 

The second entrance, 0GM03, is the entrance for producing a point of the solution. 
It is entered by an RJ command: RJ 0GM01 0GM03. Entering using this command 
results in four passes through both the Gill Method Subroutine and the coding 
for computing the derivatives, and leaves in region OGNOO the new values of the 
variables, the derivatives at those values, and x advanced by AX, ready for the 
next step. 

The third entrance, OGMOU, is the entrance from the coding for calculating the 
derivatives and is used on each of the four passes necessary for computing one 
point. As noted above, it is entered by an MJ command in the ODEOO region: 


MJ 00000 0GM04 
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Mathematical Analysis 


Theory . "A Process for the Step-by-Step Integration of Differential Equations 
in an Automatic Digital Computing Machine" by S. Gill, published in Cambridge 
Philosophical Society Proceedings, Vol. 47, Part I, January 1951., should be 
consulted for a detailed analysis of the process on which the subroutine is 
based. 

Suppose we know the point (x, Y , Y„, . . . , Y ) on the curve defined by the 
system of equations n 


^1 

dx 

= (x. 


y 2 , • 

■ • , y n ) 

dy 2 

dx 

* f 2 < x > 

y i ; 

y 2 ' * 

■ ■ , yj 




n 


dec 


" f n (x - *1’ 





The Gill Method is a process by which we can find the next point on the curve: 
i.e. the value of y^, y g , . . . , y for x = X + h. 

The process can be better understood if the case where n=l is first considered. 


We have the point (X,Y) on the curve ^ = f (x,y), and we want to find y at 

= f (X + h, Y + k). 

X + h, Y + k 

We derive k by making four approximations and averaging them in a particular my. 


X + h; i.e. we want lc = Sy such that ^ 


First approximate the 
= f (X,Y), and find a 


curve by a straight line through (X,Y) with the slope ^ 
first approximation to k: 


X,Y 


k Q = h-f (X,Y) 

Then we travel a fraction m of the way along this line to the point (X + mh, Y + mk 
and find f (X + mh, Y + mk o ). 

This gives us a new straight line through (X + mh, Y + mk ) with slope f (X + mh, 

Y + ink ), and we find 

o 

lc n = h f (X + mil, Y + mk ) 

1 ' ’ o' 

We now use k Q and to find a third point at which f is calculated: (X + nh, 

Y + [n-r] k Q + rk^). 

n-r k + rk, ) 

Jo 1' 


k 2 = h f (X + nh, Y + 
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Similarly, 


k_ = h*f (X + ph, Y + j^p-s-t J k Q + sk^ + tk. 


The weighted average of k , k , lc_, and k is the desired k = 6y: 

o 1 o 3 

5 y = y (x + h) -y (X) = c Q k o + + c 2 k 2 + c^c 

where c q + + c 2 + c 0 = 1. 

For a system of equations, the same four steps given above are made for each 
equation and 

6y i = c 0 k io + C l k il + + c ? k <^ where c ~ + c -> + c o + c o = 1- 


O 10 


'2 i2 


'3 13 


The above process is, for certain values of m, n, p, s, t, c q , c^, c 2 , and c 0 , the 

Runge-Kutta process. The Gill process was derived, With application to machine use 
in mind, by minimizing the number of storage cells required. For the Gill Method 
the above constants are 


m = l/2 , 

n = 1/2 , 

p = 1 , 


r = 1 - YIJ2 , 
s = - VT/2 , 

t = 1 + VI/2 , 


c =l/6 
o 

=(l/3) (1 - VI72) 

c 2 =( 1 / 3 ) (1 + VI72) 


°3 = 1/6 


The Gill process further systematizes the calculation so as to increase the accuracy 
and simplify the coding. 

The Subroutine As used in the Gill Method Subroutine, the process is as follows: 

1st pass: 


Advance x by(l/2)h 

k io - h ‘ f l < x ’ 7 10 ’ 7 20 ’ • 
r il »(V2)k io - %o 

’ll = + -M* 




IO 


y il = y io + r il 
Calculate f ± • 


, y^ in programmer's own coding. 


2nd pass: 


’ y ia> 


k il ■ h f l < x ’ y ll’ y 21’ ' • 

r 12 - t 1 - V375 > (k il - %1> 

12 = ’il 7 3 r i2 ^ 71 / 2 ' I: il 


’-12 

y 12 = y il + r 12 


Calculate f (x,y 12 ,y 22 , * • • > y n 2^ in P r °Srammer's own coding. 
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3rd pass: 


4th pass: 


Advance x by(l/2)h 


k i2 

= h * f l 

( X; y i2' > Y 2?.’ 

* * * 


r i3 

= (1 + 

■vm) (k i2 

- q i2 ) 


"13 

= C1 i2 

Sr i3 - (1 - 

Vlj2) 

\z 

y i3 

= y :L2 + 

r i3 



Calculate f 

i (x ’ y 13’ y 23 

y • • 

' ’ y n3 ) 

*13 

= h-f. 

1 


. . . 

y n 3 ’ 

r l4 

= (l/6)(k i3 - 2^) 



^i4 

0 tL3 “ 

3r l4 - UM 

k i3 


y i4 

= y i3 + 

r i4 



Calculate f 

1 < x < y lV y 2l* 

; • • 

' ’ y n4> 


in programmer's o\m coding. 


in programmer's own coding. 


Errors The paper by S. Gill mentioned previously includes a detailed analysis of 
errors, both truncation error and round-off error. 


The expression for the truncation error in Sy^ is too complicated to give here, but 
its dominating term, the author states, is 


h 


-120 


n 


o 


x. df. 

x X . 

J ~Sy~ 






m 


x=X 


where y^ 


x, f Q = 1, 


j,k,l,m 


and the truncation error in &y_. vri.ll be approximately this when the second partial 

derivatives are all close to zero. It is probably more useful to say merely that 

5 

the truncation error is of the order of h . 


The standard deviation in y -( 1 / 3 ) cm over one step from all rounding off errors 
is (where f is the quantity mentioned in the section on notation) 


1/6 


~ 

f 

V-1 

( \ 

2 ] 


7/3 < 

2" 2f + (l/l6) h 2 / , 

j 


\r 

* 


A 

_ 


1/2 


u, u = the value of 
one unit in the 
last digit of y. 


Machine Checking 


A driver routine solved two systems of equations both separately and concurrently, 
using the Gill Method Subroutine. The two systems solved are given below to 
indicate accuracy and to sei-ve as examples. 






1. Equations 
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dx y 2 

dx " y l 


f equivalent to the 
-2 

H +* 

dx 


second order equation 
= 0 . 


9 


AX = .087266h626 := Tt /36 = 5° 
Initial Conditions 
At x=0, y 1 = 0 and y g = 1. 


Solution 
y 1 = sin x 


Accuracy 


In a spot check of the results, the greatest absolute error observed was 

1.5 x 10 °. (For x = 3-1^15925696, y, = .0000015425. However, sin x = 
.000000084). x 


2. Equations 


dy l 

diT = y 2 
dy 2 

ST ■ y 3 

dy 3 y 3 + 

dx x 


f Equivalent to the third order equation 

2 


,3 ,2 

x d J y - dy 


4x 


dx~ 


dx 


AX = . 1 

Initial Conditions 


At x = .1, y 1 = .000025, y 2 = .001, y^ = .03 
Solution 

4 3 ; 

y.. = x - x + x - 1 

1 3 60 6600 120,000 


Accuracy 

In a spot ,-check of the results, the greatest relative error observed was 
3.4 x 10 - °. (For x - .1999999975, y, = .00042499858. However, the solution 
is actually .00042500002). 
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D 


G M 

10 2 4 






2 0 0 0 

0 0 

0 0 0 0 0 

OOOOO 

D 


1 G M 

10 6 5 






2 0 5 1 

0 0 

0 0 0 0 0 

OOOOO 

□ 


2 G M 

4 9 3 8 0 






6 3 2 3 0 

0 0 

0 0 0 0 0 

OOOOO 

D 


3 G M 

4 9 9 2 1 






6 3 3 0 1 

0 0 

0 0 0 0 0 

OOOOO 

D 


0 G C 

10 8 3 






2 0 7 3 

0 0 

0 0 0 0 0 

ooooo 

,D 


1 G C 

4 9 9 3 9 






6 3 3 2 3 

0 0 

0 0 0 0 0 

ooooo 

D 


0 G T 

2 3 






. 2 7 

0 0 

0 0 0 0 0 

ooooo 

2 G M 0 0 

F S 








6 3 2 3 0 

5 7 

0 0 0 0 0 

ooooo 

3 G M 0 1 

M J 








6 3 2 3 1 

4 5 

0 0 0 0 0 

ooooo 

2 G M 0 2 

M J 


1GM00 




TO SET UP 


6 3 2 3 2 

4 5 

ooooo 

0 2 0 5 1 

3 G M 0 3 

M J 


0 G M 3 6 




ENTER 


6 3 2 3 3 

4 5 

0 0 0 0 0 

0 2 0 4 4 

2 G M 0 4 

T P 

0 G T 0 9 

Q 




RE-ENTER 


6 3 2 3 4 

1 1 

0 0 0 4 0 

1 0 0 0 0 

2 G M 0 5 

Q J 

0 G M 0 6 

0 G M 4 0 




WHAT 


6 3 2 3 5 

4 4 

0 2 0 0 6 

0 2 0 5 0 

2 G M 0 6- 

Q J 

0 G M 3 8 

0 G M 0 7 




PASS 


6 3 2 3 6 

4 4 

0 2 0 4 6 

0 2 0 0 7 

2 G M 0 7 

T P 

0 

0 G T 0 9 




S'fT ORE C T R 


6 3 2 3 7 

1 1 

1 0 0 0 0 

0 0 0 4 0 

2 G M 0 8 

R A 

0 G M 1 0 

0 G C 0 1 




UP PASS 


6 3 2 4 0 

2 1 

0 2 0 1 2 

0 2 0 7 4 

2 G M 0 9 

R P 

3 0 0 0 3 

0 G M 1 1 




STORE 


6 3 2 4 1 

7 5 

3 0 0 0 3 

0 2 0 1 3 

2 G Ml 0 

T P 


0 G T 0 5 




PASS tON 

S 

6 3 2 4 2 

1 1 

OOOOO 

0 0 0 3 4 

2 G M 1 1 

TU 


0 G M 1 5 




RESET 


6 3 2 4 3 

1 5 

OOOOO 

0 2 0 1 7 

2 G M 1 2 

T V 


0 G M 3 1 




ADDRESSE 

S 

6 3 2 4 4 

1 6 

OOOOO 

0 2 0 3 7 

2 G M 1 3 

T P 


0 G T 0 8 




RESET N — 1 


6,3 24 5 

1 1 

OOOOO 

0 0 0 3 7 

2 G M 1 4 

R P 

3 0 0 0 3 

0 G M 1 6 






6 3 2 4 6 

7 5 

3 0 0 0 3 

0 2 0 2 0 

2 G M 1 5 

T P 


0 G T 0 0 






6 3 2 4 7 

1 1 

OOOOO 

0 0 0 2 7 

2 G M 1 6 

M P 


0 G T 0 0 




CALC K 


6 3 2 5 0 

7 1 

ooooo 

0 0 0 2 7 

2 G M 1 7 

L A 

A 





SHIFT L 


6 3 2 5 1 

5 4 

2 0 0 0 0 

OOOOO 

2 G M 1 8 

T P 

A 

0 G T 0 3 




STORE K 


6 3 2 5 2 

1 1 

2 0 0 0 0 

0 0 0 3 2 

2GH19 

M P 

0 G T 0 5 

0 G T 0 3 




A K 


6 3 2 5 3 

71 

0 0 0 3 4 

0 0 0 3 2 

2GM30 

M A 

0 G T 0 6 

0 G T 0 2 




A K R 0 


6 3 2 5 4 

7 2 

0 0 0 3 5 

0 0 0 3 1 

2 G M 2 1 

L A 

A 

3 8 






6 3 2 5 5 

5 4 

2 0 0 0 0 

0 0 0 4 6 

2GM22 

T P 

A 

0 G T 0 4 




STORE R 


6 3 2 5 6 

1 1 

2 0 0 0 0 

0 0 0 3 3 

2 G M 2 3 

A T 

A 

A 




2 R 


6 3 2 5 7 

3 5 

2 0 0 0 0 

2 0 0 0 0 

2 G M 2 4 

A T 

0 G T 0 4 

A 




3 R 


6 3 2 6 0 

3 5 

0 0 0 3 3 

2 0 0 0 0 

2 G M 2 5 

L A 

A 

3 4 






6 3 2 6 1 

5 4 

2 0 0 0 0 

0 0 0 4 2 

3 G M 3 6 . 

M A 

0 G T 0 7 

0 G T 0 3 




3 R C K 


6 3 2 6 2 

7 2 

0 0 0 3 6 

0 0 0 3 2 

2 G M 2 7 

L A 

A 

3 8 




ADD OLD Q 


6 3 2 6 3 

5 4 

2 0 0 0 0 

0 0 0 4 6 

2 G M 3 8 

A T 

0 G T 0 2 

0 G T 0 2 




EQUALS 0 


6 3 2 6 4 

3 5 

0 0 0 3 1 

0 0 0 3 1 

2 G M 2 9 

R A 

0 G T 0 1 

0 G T 0 4 




NEW Y 


6 3 2 6 5 

2 1 

0 0 0 3 0 

0 0 0 3 3 

2 G M 3 0 

R P 

3 0 0 0 2 

0 G M 3 2 




STORE 


6 3 2 6 6 

7 5 

3 0 0 0 2 

0 2 0 4 0 

2 G M 3 1 

T P 

0 G T 0 1 





Y AND Q 


6 3 2 6 7 

1 1 

0 0 0 3 0 

OOOOO 

3 G M 3 3 

R A 

0 G M 1 5 

0 G C 0 1 




ADVANCE 


6 3 2 7 0 

2 1 

0 2 0 1 7 

0 2 0 7 4 

2 C M 3 3 

R A 

0GM31 

0 G C 0 2 




ADDRESSE 

s 

6 3 2 7 1 

2 1 

0 2 0 3 7 

0 2 0 7 5 

3 G M 3 4 

1 J 

0 G T 0 8 

0 G M 1 4 




CYCLE N 


6 3 2 7 2 

4 1 

0 0 0 3 7 

0 2 0 1 6 

2 G M 3 5 

M J 








6 3 2 7 3 

4 5 

OOOOO 

OOOOO 

2 G M 3 6 

T U 

0 G C 0 0 

0 G M 1 0 






6 3 2 7 4 

1 5 

0 2 0 7 3 

0 2 0 1 2 

2 G M 3 7 

T P 

0 G M 2 1 

0 






6 3 2 7 5 

1 1 

0 2 0 2 5 

1 0 0 0 0 

2 G M 3 8 

R A 








6 3 2 7 6 

2 1 

OOOOO 

OOOOO 

2 G M 3 9 

M J 


0GM07 






6 3 2 7 7 

4 5 

OOOOO 

0 2 0 0 7 

2 G M 4 0 

0 J 

0 G M 0 1 

0 G M 0 7 






6 3 3 0 0 

4 4 

0 2 0 0 1 

0 2 0 0 7 

3 G M 0 0 

S P 

0 G M 0 1 

0 0 0 1 5 






6 3 3 0 1 

3 1 

0 2 0 0 1 

0 0 0 1 7 

3 G M 0 1 

T U 

A 

1 G M 0 2 






6 3 3 0 2 

1 5 

2 0 0 0 0 

0 2 0 5 3 

3 G M 0 2 

T P 


■OGTOO 






6 3 3 0 3 

1 1 

0 0 .0 0 0 

0 0 0 2 7 

3 G M 0 3 

T V 

0 G T 0 0 

0GM35 






6 3 3 0 4 

1 6 

0 0 0 2 7 

0 2 0 4 3 

3 G M 0 4 

T U 

0 G T 0 0 

1GM05 






6 3 3 0 5 

1 5 

0 0 0 2 7 

0 2 0 5 6 

3 G M 0 5 

T V 


0 G M 1 7 






6 3 3 0 6 

1 6 

OOOOO 

0 2 0 2 1 

3 G M 0 6 

R A 

0 G T 0 0 

1 5 






6 3 3 0 7 

2 1 

0 0 0 2 7 

0 0 0 1 7 

3 G M 0 7 

R P 

1 0 0 0 3 

1 G M 0 9 






6 3 3 1 0 

7 5 

1 0 0 0 3 

0 2 0 6 2 

3 G M 0 8 

T U 

0 G T 0 0 

0GM11 






6 3 3 1 1 

1 5 

0 0 0 27 

.0 2 0 1 3 

3 G M 0 9 

R A 

0 G M 1 3 

1 5 






6 3 3 1 2 

2 1 

0 2 0 1 5 

0 0 0 1 7 

3 G M 1 0 

A T 

1 5 

A 






6 3 3 1 3 

35 

0 0 0 1 7 

2 0 0 0 0 

3 G Mil 

T U 

A 

0 G M 1 6 






6 3 3 1 4 

1 5 

2 0 0 0 0 

0 2 0 2 0 

3 G M 1 2 

T U 

A 

0 G M 3 8 






6 3 3 1 5 

1 5 

.20000 

0 2 0 4 6 

3 G M 1 3 

L Q 

A 

2 1 






6 3 3 1 6 

5 5 

2 0 0 0 0 

0 0 0 2 5 

3 G M 1 4 

T V 

Q 

0 G M 3 8 






6 3 3 1 7 

1 6 

1 0 0 0 0 

0 2 0 4 6 

3 G M 1 5 

R A 

0 G M 3 8 

1 5 






6 3 3 2 0 

2 1 

0 2 0 4 6 

0 0 0 1 7 

3 G M 1 6 

R A 

0 G M 0 1 

1 6 






6 3.3 2 1 

2 1 

0 2 0 0 1 

0 0 0 2 0 

3 G M 1 7 

M J 


0 G M 0 1 






6 3 3 2 2 

4 5 

OOOOO 

0 2 0 0 1 

1 G C 0 0 


G C 







6 3 3 2 3 

0 0 

0 2 0 7 3 

OOOOO 

1 G C 0 1 


3 


B 





6 3 3 2 4 

0 0 

0 0 0 0 3 

OOOOO 

1 G C 0 2 



3 

B 





6 3 3 2 5 

0 0 

OOOOO 

0 0 0 0 3 

1 G C 0 3 

5 


— 


1 

3 4 

A 1 SCALE 

3 4 

6 3 3 2 6 

1 0 

OOOOO 

OOOOO 

1GC04- 

0 1 





3 4 

OBI 

3 4 

6 3 3 2 7 

5 7 

7 7 7 7 7 

7 7 7 7 7 

1GC05 — 

0 5 


— 


1 

3 4 

0 C 1 

3 4 

6 3 3 3 0 

6 7 

7 7 7 7 7 

7 7 7 7 7 

1 G C 0 6 

0 2 

9 2 0 9 3 

21081- 

0 

1 

3 4 

A 2 SCALE 

3 4 

6 3 3 3 1 

0 4 

5 3 7 3 0 

3 14 6 0 

1GC07- 

0 2 

9 2 3 9 3 

21881- 

0 

1 

3 4 

0 B 2 

3 4 

6 3 3 3 2 

7 3 

2 4 0 4 7 

4 6 3 1 7 

1GC03- 

0 2 

9 2 8 9 3 

2 1 0 SI- 

0 0 1 

. 3 4 

0 C 2 SCALE 

3 4 

6 3 3 3 3 

7 3 

2 4 0 4 7 

4 6 3 1 7 

1 G C 0 9 

1 

7 0 7 10 

67013 



3 4 

A 3 

3 4 

.63334 

3 3 

2 4 0 4 7 

4 6 3 2 0 

1GC10- 

0 1 

7 0 7 1 0 

6 7 8 1 2 



3 4 

0 B 3 

3 4 

■63335 

4 4 

5 3 7 3 0 

3 14 5 7 

1GC11 — 

0 1 

7 0 7 10 

6 7 0 1 2 



3 4 

0 C 3 

3 4 

6 3 3 3 6 

4 4 

5 3 7 3 0 

3 14 5 7 

1 G C 1 2 

1 

6 6 o 6 6 

66667— 

0 

1 

3 4 

A 4 

3 4 

6 3 3 3 7 

0 2 

5 2 5 2 5 

2 5 2 5 3 

1GC13- 

0 3 

3 3 3 3 3 

33333- 

0 

1 

3 4 

0 B 4 

3 4 

6 3 3 4 0 

7 2 

5 2 5 2 5 

2 5 2 5 2 

1 G C 1 4 — 

0 5 


— 


1 

3 4 

0 C 4 

3 4 

6 3 3 4 1 

6 7 

7 7 7 7 7 

7 7 7 7 7 




SIN-3 

Pgo 1 of 4 


Identification Tag: 
Type: 

Assembly Routine Spec: 
Storage: 


Program Entrances: 
Program Exit: 

Drum Assignment: 
Machine Time: 

Mode of Operation: 

Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 


THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45, California 

Floating Point Sine-Cosine Routine 
Specifications 

SIN-3 

Subroutine 

SUB 50075 05915 

44 instructions, addresses 
00S00 thru 00S43 
01S00 thru 01S43 

15 constants in program, addresses 
02S00 thru 02S14 
03S00 thru 03S14 

59 words total program storage, addresses 
00300 thru 00S43 
01S00 thru 01S43 
02S00 thru 02S14 
03S00 thru 03S14 

2 words temporary storage pool used, addresses 
00027b thru 00030 b 

The constant pool Is used by this routine 

00T02 (01T02) for sine, 00T04 (01T04) for cosine 

00T01 (OlTOl) 

Addresses 63533^ thru 63625 b 

3.9 ms average, 4.8 ms maximum 

Floating point 

M. Perry July 21, 1955 

R. Bigelow July 27, 1955 

M. Perry August 8, 1955 

W. Bauer August 10, 1955 
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When supplied with an argument X in SNAP form, this routine will evaluate Sine X 
or Cosine X (depending on which of the two entrances is used) using a Rand Poly¬ 
nomial Approximation, producing the answer in SNAP form. 

Programming Instructions 

This routine can he inserted into a program by CMP-0 by the use of a "SUB" card 
in the input deck. 

1. Place the double length extension of X in the accumulator . 

X must be in radians and must be in SNAP form. 

2. Return jump to the subroutine . Assuming that the subroutine ms assigned 
to region 00K00 for assembly, use either the instruction RJ 00K01 00K02 
for the sine, or the instruction RJ 00K01 00K04 for the cosine. 

3- At the time of exit from the subroutine, the double length extension of 
sine X (or cosine X) in SNAP form will be in the accumulator. 


Error Analysis 

The error in the result of this routine is less than 2~ ; however, the signi¬ 

ficance of the sine (or cosine) cannot exceed the significance of the fractional 

part of X. 

Mathematical Method 

1. Let y = (2/n)X, then sine X = sin(«/2)(y) 

cosine X = sine (n/2)(y + l) 

2. Divide y (or y + l) into an integral part R, and a fractional part S. 

3 . R defines the quadrant into which X falls. Let R' be the two low order 
positions of R, since in binary notation, any other positions merely define 
a number of complete revolutions. 

4. R' is a number one less than the number of the quadrant into which X falls. 

5. S defines the displacement (in a position direction) within the quadrant 
indicated by R'. 


Therefore, if R' =00 

Let 

Z = S 

first quadrant 

R' - 01 

Let 

Z = (l-S) 

second quadrant 

R' = 10 

Let 

Z = (-S) 

third quadrant 

R' = 11 

Let 

Z = (l-S) 

fourth quadrant 


7 . Sine (or cosine) X = sin(it/2)Z. 

8. Sin(n/2)X is approximated by the Rand Polynomial Approximation Number l6, 
using argument Z. 
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Range of Variable 
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No alarm condition is recognized "by this routine. However, as X approaches + 2 
the number of significant digits in Sine X (or Cosine X) approaches zero, and 
X merely defines a number of revolutions and does not significantly designate 
an angle. 
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0 0 S 0 0 

5 0 0 7 5 


SIN ROUTN 44 

6 3 5 3 3 

0 0 

0 0 0 0 0 



0 1 S 0 0 

0 10 2 4 


TO BE ALTERD 

2 0 0 0 

0 0 

0 0 0 0 0 



0 2 S 0 0 

5 0 119 


SIN CONST 15 

6 3 6 0 7 

0 0 

0 0 0 0 0 



0 3 S 0 0 

0 10 6 8 


TO BE ALTERD 

2 0 5 4 

0 0 

0 0 0 0 0 

$00 





ALARM EXIT 

6 3 5 3 3 

0 0 

0 0 0 0 0 

SOI 

M J 

0 0 0 0 0 



NORMAL EXIT 

6 3 5 3 4 

4 5 

0 0 0 0 0 

$02 

T P 

0 0 0 1 3 

0 1 S 4 2 


SIN ENTRY 

6 3 5 3 5 

11 

0 0 0 1 5 

$ 0 3 

M J 

0 0 0 0 0 

0 1 S 0 5 



6 3 5 3 6 

4 5 

0 0 0 0 0 

S 0 4 

T P 

0 3 8 0 0 

0 1 S 4 2 


COS ENTRY 

6 3 5 3 7 

1 1 

0 2 0 5 4 

S 0 5 

T P 

A 0 0 0 0 

Q 0 0 0 0 



6 3 5 4 0 

1 1 

2 0 0 0 0 

S 0 6 

G T 

0 3 S 0 1 

0 0 0 2 3 


M 

6 3 5 4 1 

5 1 

0 2 0 5 5 

S 0 7 

G T 

0 3 S 0 2 

0 00 24 


E - 1 2 8 

63 5 42 

5 1 

0 2 0 5 6 

SOS 

0 J 

0 1 S 0 9 

0 1 S 1 1 


N E G 

6 3 5 4 3 

4 4 

0 2 0 11 

$09 

C C 

0 0 0 2 4 

0 3 S 0 2 



6 3 5 4 4 

2 7 

0 0 0 3 0 

S 1 0 

R A 

00 02 3 

0 3 S 0 2 



6 3 5 4 5 

2 1 

0 0 0 2 7 

S 1 1 

L Q 

0 0 0 2 3 

0 0 0 0 8 


M 3 5 

6 3 5 4 6 

5 5 

0 0 0 2 7 

S 1 2 

R S 

0 0 0 2 4 

0 3 S 0 0 


E 

6 3 5 4 7 

2 3 

0 0 0 3 0 

$13 

T M 

A 0 0 0 0 

A 0 0 0 0 


E A B S 

6 3 5 5 0 

1 2 

2 0 0 0 0 

S 1 4 

T J 

0 3 3 0 3 

0 1 S 1 6 



6 3 5 5 1 

4 2 

0 2 0 5 7 

S 1 5 

T P 

0 0 0 1 3 

0 0 0 2 3 



6 3 5 5 2 

1 1 

0 0 0 1 5 

$ 1 6 

L Q 

0 0 0 2 4 

2 0 0 0 9 



6 3 5 5 3 

5 5 

0 0 0 3 0 

S 1 7 

A T 

0 3 8 0'4 

0 1 S 2 0 



6 3 5 5 4 

3 5 

0 2 0 6 0 

S 1 8 

M P 

0 3 S 0 5 

0 0 0 2 3 


M IN QDRNTS 

6 3 5 5 5 

7 1 

0 2 0 6 1 

$1'9 

T P 

B 0 0 0 0 

A 0 0 0 0 



6 3 5 5 6 

1 1 

3 0 0 0 0 

S 2 0 

L A 

A 0 0 0 0 

0 0 



6 3 5 5 7 

5 4 

2 0 0 0 0 

$21 

A T 

0 1 S 4 2 

00 00 0 



6 3 5 6 0 

3 5 

0 2 0 5 2 

S 2 2 

a T 

0 3 3 0 6 

0 0 0 2 3 


Z 

6 3 5 6 1 

51 

0 2 0 6 2 

S 2 3 

T P 

0 3 S 0 7 

0 1 S 4 2 



6 3 5 6 2 

1 1 

0 2 0 6 3 

S 2 4 

Q J 

0 1 S 2 5 

0 1 S 2 6 



6 3 5 6 3 

4 4 

0 2 0 3 1 

S 2 5 

T P 

0 3 S 0.8 

0 1 S 4 2 



6 3 5 6 4 

1 1 

0 2 0 6 4 

S 2 6 

Q J 

0 1 S 2 7 

0 1 S 2 9 



6 3 5 6 5 

4 4 

0 2 0 3 3 

S 2 7 

S P 

0 3 S 0 0 

0 0 0 0 0 


1 MINUS Z 

6 3 5 6 6 

3 1 

0 2 0 5 4 

S 2 8 

S T 

0 0 0 2 3 

0 0 0 2 3 


ARG OF POLY 

6 3 5 6 7 

3 6 

0 0 0 2 7 

S 2 9 

M P 

0 0 0 2 3 

0 0 0 2 3 


ARG SQUARED 

6 3 5 7 0 

7 1 

0 0 0 2 7 

$ 3 0 

T P 

B 0 0 0 0 

0 0 0 2 4 


3 3 

6 3 5 7 1 

1 1 

3 0 0 0 0 

S 3 1 

S P 

0 3 S 0 9 

0 0 0 3 5 


C — 9 

6 3 5 7 2 

31 

0 2 0 6 5 

$ 3 2 

' R P 

2 0 0 0 4 

0 13 3 4 



6 3 5 7 3 

7 5 

2 0 0 0 4 

$ 3 3 

P M 

0 3 S 1 0 

0 0 0 2 4 


POLY 

6 3 5 7 4 

2 4 

0 2 0 6 6 

$ 3 4 

M P 

B 0 0 0.0 

0 0 0 2 3 


EVALUATION 

6 3 5 7 5 

7 1 

3 0 0 0 0 

S 3 5 

T P 

B 0 0 0 0 

A 0 0 0 0 



6 3 5 7 6 

1 1 

3 0 0 0 0 

$ 3 6 

Z J 

0 1 S 3 7 

0 1 S 0 1 



6 3 5 7 7 

4 7 

0 2 0 4 5 

S 3 7 

S F 

A 0 0 0 0 

0 0 0 2 4 


SCALE M 

6 3 6 0 0 

7 4 

2 0 0 0 0 

$38 

T P 

A 0 0 0 0 

0 0 0 2 3 



6 3 6 0 1 

1 % 

2 0 0 0 0 

$ 3 9 

S P 

0 0 0 2 4 

0 0 0 0 0 



6 3 6 0 2 

31 

0 0 0 3 0 

S 4 0 

S A 

0 3 S 1 4 

0 0 0 3 5 


E — 12 8 FINAL 

6 3 6 0 3 

3 2 

0 2 0 7 2 

S 4 1 

S A 

0 0 0 2 3 

0 0 0 2 7 


PACKED 

6 3 6 0 4 

3 2 

0 0 0 2 7 

$42 

T P 

B 0 0 0 0 

A 0 0 0 0 


EXTEND 

6 3 6 0 5 

1 1 

3 0 0 0 0 

S 4 3 

M J 

0 0 0 0 0 

0 1 S 0 1 


OUT 

6 3 6 0 6 

4 5 

0 0 0 0 0 

2 $ 0 0 

2 0 

0 0 0 0 0 

0 0 0 0 0 

B 

1 OR 128 

6 3 6 0 7 

2 0 

0 0 0 0 0 

2 S 0 1 

0 0 

0 7 7 7 7 

7 7 7 7 7 

B 

MASK 

6 3 6 1 0 

0 0 

0 7 7 7 7 

2 $ 0 2 

7 7 

7 0 0 0 0 

0 0 0 0 0 

B 

MASK 

6 3 6 1 1 

7 7 

7 0 0 0 0 

2 $ 0 3 

0 3 

3 0 0 0 0 

0 0 0 0 0 

B 

27 

6 3 6 1 2 

0 3 

3 0 0 0 0 

2 $ 0 4 

5 4 

2 0 0 0 0 

0 4 10 7 

B 

ADDRESS MOD 

6 3 6 1 3 

5 4 

2 0 0 0 0 

2 S 0 5 

2 4 

2 7 6 3 0 

1 5 5 6 2 

B 

2 P 1 3 5 

6 3 6 1 4 

2 4 

2 7 6 3 0 

2 S 0 6 

1 7 

7 7 7 7 7 

7 7 7 7 7 

B 

MASK 

6 3 6 1 5 

1 7 

7 7 7 7 7 

2 S 0 7 

1 1 

3 0 0 0 0 

2 0 0 0 0 

B 

P 0 S INTO A 

6 3 6 1 6 

1 1 

3 0 0 0 0 

2 S 0 0 

1 3 

3 0 0 0 0 

2 0 0 0 0 

D 

N E G INTO A 

6 3 6 1 7 

1 3 

3 0 0 0 0 

2 S 0 9 

0 0 

0 2 3 6 6 

5 7 3 5 .1 

B 

C — 9 3 8 

6 3 6 2 0 

00 

0 2 3 6 6 

2 S 1 0 

7.7 

6 6 3 3 3 

14 7 15 

B 

C — 7 3 5 

6 3 6 2 1 

7 7 

6 6 3 3 3 

2 S 1 1 

0 0 

5 0 6 3 2 

1 2 7 5 5 

B 

C — 5 3 3 

6 3 6 2 2 

0 0 

5 0 6 3 2 

2 S 1 3 

7 6 

5 5 2 4 2 

0 7 6 4 4 

B 

C - 3 3 1 

6 3 6 2 3 

7 6 

5 5 2 4 2 

2 S 1 3 

0 0 

6 2 2 0 7 

7 3 2 4 4 

B 

C-l 2 9 

6 3 6 2 4 

0 0 

6 2 2 0 7 

2 S 1 4 

0 0 

0 0 0 0 0 

0 0 0 7 6 

B 

6 2 

6 3 6 2 5 

0 0 

0 0 0 0 0 


0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 2 0 5 2 
0 2 0 0 5 
0 2 0 5 2 
1 0 0 0 0 
0 0 0 2 7 
0 0 0 3 0 
0 2 0 1 3 
0 2 0 5 6 
0 2 0 5 6 
0 0 0 1 0 
0 2 0 5 4 
2 0 0 0 0 
0 2 0 2 0 
0 0 0 2 7 
2 0 0 1 1 
0 2 0 2 4 
0 0 0 2 7 
2 0 0 0 0 
0 0 0 0 0 
1 0 0 0 0 
0 0 0 2 7 
0 2 0 5 2 
0 2 0 3 2 
0 2 0 5 2 
0 2 0 3 5 
0 0 0 0 0 
0 0 0 2 7 
0 0 0 2 7 
0 0 0 3 0 
0 0 0 4 3 
0 2 0 4 2 
0 0 0 3 0 
0 0 0 2 7 
2 0 0 0 0 
0 2 0 0 1 
0 0 0 3 0 
0 0 0 2 7 
0 0 0 0 0 
0 0 0 4 3 
0 0 0 3 3 
2 0 0 0 0 
0 2 0 0 1 
0 0 0 0 0 
7 7 7 7 7 
0 0 0 0 0 
0 0 0 0 0 
0 4 10 7 

1 5 5 6 2 
7 7 7 7 7 

2 0 0 0 0 
2 0 0 0 0 
5 7 3 5 1 
14 7 15 
1 2 7 5 5 
0 7 6 4 4 
7 3 2 4 4 
0 0 0 7 6 
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Arcsine-Arcosine Routine 
Specifications 

SNI-1 

Subroutine 

SUB 50410 08014 

66 instructions, addresses 

DSCOO (ASCOO) thru DSC 65 (ASC 65 ) 

14 constants in program, addresses 
DSC66-(ASC66) thru DSC79 (ASC79) 

80 words total program storage, addresses 
DSCOO (ASCOO) thru DSC79 (ASC79) 

7 words temporary storage pool used, addresses 
00027b thru 00035b 

The constant pool is used by this routine 

DSC03 for arcsine, DSC02 for arcosine 
DSC 01 

The alarm exit is used by this routine 


Addresses 64252b thru 64371b 

6.0 ms average, 6.6 ms maximum machine time 

Fixed point 


A. Franck (ERA) 
D. Gantner 
T. Tack 
W. Bauer 


May 14, 1955 
August 16 , 1955 
August 25, 1955 
September 12, 1955 
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Description 

This subroutine computes F(x) = arcsin x or F(x) = arcos x (depending on which 
of two entrances is used) by use of a polynomial approximation. 

The routine was originally coded by Dr. A. Franck of ERA and has been adopted 
for use at The Ramo-Wooldridge Corporation. 

Notation 

X = sine or cosine of an angle F(x). 

F(x) = the computed angle in radians whose sine or cosine is x. 

Aj = Rand Constants (See Rand Sheet No. 39). 

Programming Instructions 

This routine can be assembled into a program by use of a "SUB" card in the input 
deck. 

oo 33 

1. Place the argument scaled by (i.e. in A . 

2. Enter the routine with an RJ instruction . If the routine was assigned to 
region OOKOO for assembly use the instruction 

RJ 00K01 00K03 for the arcsine, or 

RJ 00K01 0CK02 for the arcosine. 

33 

3. At the time of exit from the routine the result F(x) *2T is left in A. 

Alarm Conditions 


If the jx) is greater than one an alarm exit will occur. The word "alarm" and 
the address of the cell in the main program containing the RJ instruction which 
was used to enter SNI-1 will be printed on the flexowriter. 


Pushing the start button after the'alarm halt will transfer control to the exit 
of SNI-1. 
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D 


D S C 0 0 

5 0 4 1 0 




D 


A S C 0 0 

0 10 2 4 




D S C 0 0 

3 7 

7 5 7 0 1 

75702 B 

ALARM E 

X 1 T 


D S C 0 1 

M J 

0 0 0 0 0 

0 0 0 0 0 

ROUTINE 

E X 1 

T 

D S C 0 2 

M J 

0 0 0 0 0 

A S C 5 7 

A R C C 0 S 

E N T R 

V 

D 8 C 0 3 

M J 

0 0 0 0 0 

A S C 6 0 

A R C S 1 N 

E N T R 

Y 

D 8 C 0 4 

T P 

0 0 0 1 3 

0 0 0 2 4 




D S C 0 5 

T M 

A 0 0 0 0 

0 0 0 2 5 




D S C 0 6 

T J 

A 3 C 6 6 

A S C 0 0 




D S C 0 7 

T J 

A S C 6 7 

A S C 0 9 




D S C 0 8 

M J 

0 0 0 0 0 

A S C 0 0 




D S C 0 9 

T P 

A 0 0 0 0 

Q 0 0 0 0 




D S C 1 0 

Z J 

ASCII 

A S C 5 2 




D S C 1 1 

S J 

A S C 1 2 

A S C 1 3 




D S C 1 2 

T P 

0 0 0 1 6 

0 0 0 2 4 




D S C 1 3 

T M 

A 0 0 0 0 

A 0 0 0 0 




D S C 1 4 

E J 

A S C 6 8 

A S C 5 5 




D S C 1 5 

M P 

0 0 0 2 5 

A S C 6 9 




D S C 1 6 

L A 

A 0 0 0 0 

0 0 0 3 7 




D S C 1 7 

A T 

A S C 7 0 

0 0 0 2 6 




D S C 1 8 

M P 

0 0 0 2 5 

0 0 0 2 6 




D S C 1 9 

L A 

A 0 0 0 0 

0 0 0 3 7 




D S C 2 0 

A T 

A S C 7 1 

0 0 0 2 6 




D S C 2 1 

M P 

00 0 2 5 

0 0 0 2 6 




D S C 2 2 

L A 

A 0 0 0 0 

0 0 0 3 9 




D S C 2 3 

A T 

A S C 7 2 

0 0 0 2 6 




D S C 2 4 

M P 

0 0 0 2 5 

0 0 0 2 6 




D S C 2 5 

L A 

A 0 0 0 0 

0 0 0 3 8 




D S C 2 6 

A T 

A S C 7 3 

0 0 0 2 6 




D S C 2 7 

M P 

0 0 0 2 5 

0 0 0 2 6 




D S C 2 8 

L A 

A 0 0 0 0 

0 0 0 3 8 




D S C 2 9 

A T 

A S C 7 4 

0 0 0 2 6 




D S C 3 0 

M P 

0 0 0 2 5 

0 0 0 2 6 




D S C 3 1 

L A 

A 0 0 0 0 

0 0 0 3 8 




D S C 3 2 

A T 

A S C 7 5 

0 0 0 2 6 




D S C 3 3 

M P 

0 0 0 2 5 

0 0 0 2 6 




D S C 3 4 

L A 

A 0 0 0 0 

0 0 0 3 6 




D S C 3 5 

A T 

A S C 7 6 

0 0 0 2 6 




D S C 3 6 

T N 

0 0 0 2 5 

A 0 0 0 0 




D S C 3 7 

S A 

A S C 6 8 

0 0 0 0 2 




D S C 3 8 

T P 

A S C 7 8 

0 0 0 2 7 




D S C 3 9 

£ J 

A S C 7 8 

A S C 4 7 




D S C 4 0 

T P 

A 0 0 0 0 

0 0 0 2 8 




D S C 4 1 

S P 

0 0 0 2 8 

0 0 0 3 4 




D S C 4 2 

D V 

0 0 0 2 7 

0 0 0 2 9 




D S C 4 3 

L A 

0 0 0 2 7 

0 0 0 7 1 




D S C 4 4 

R S 

Q 0 0 0 0 

0 0 0 2 7 




D S C 4 5 

R A 

0 0 0 2 7 

0 0 0 2 9 








SMI-1 

Pg. 4 of 4 






D S C 4 6 

Q J 

A S C 4 1 

A S C 4 7 


D S C 4 7 

M P 

A 0 0 0 0 

0 0 0 2 6 


D S C 4 8 

L A 

A 0 0 0 0 

0 0 0 3 7 


D S C 4 9 

S T 

A S C 7 7 

Q 0 0 0 0 


D S C 5 0 

I J 

0 0 0 2 4 

A S C 5 2 


D S C 5 1 

T N 

Q 0 0 0 0 

Q 0 0 0 0 


D S C 5 2 

R S 

Q 0 0 0 0 

0 0 0 2 3 


, D S C 5 3 

D V 

A S C 7 9 

A 0 0 0 0 


D S C 5 4 

M J 

0 0 0 0 0 

A S C 0 1 


D S C 5 5 

T N 

A S C 7 7 

Q 0 0 0 0 


D S C 5 6 

M J 

0 0 0 0 0 

A S C 5 0 


D S C 5 7 

T P 

A S C 7 7 

0 0 0 2 3 


D S C 5 8 

T V 

A S C 6 5 

A S C 5 4 


D S C 5 9 

M J 

0 0 0 0 0 

A S C 0 4 


D S C 6 0 

T P 

0 0 0 1 3 

0 0 0 2 3 


D S C 6 1 

T V 

A S C 6 4 

A S C 5 4 


D S C 6 2 

M J 

0 0 0 0 0 

A S C 0 4 


D S C 6 3 

T N 

A 0 0 0 0 

A 0 0 0 0 


D S C 6 4 

M J 

0 0 0 0 0 

A S C 0 1 


D S C 6 5 

0 0 

0 0 0 0 0 

A S C 6 3 


D S C 6 6 

6 7 

7 7 7 7 7 

7 7 7 7 7 

B 

D S C 6 7 

1 0 

0 0 0 0 0 

0 0 0 0 1 

B 

D S C 6 8 

1 0 

0 0 0 0 0 

0 0 0 0 0 

B 

D S C 6 9 

5 3 

2 4 13 5 

2 0 0 7 0 

B 

D S C 7 0 

3 3 

2 4 4 1 4 

2 5 5 3 5 

B 

D S C 7 1 

5 6 

4 0 0 7 1 

5 15 4 5 

B 

D S C 7 2 

3 7 

5 0 4 1 7 

4 12 3 3 

B 

D S C 7 3 

4 6 

2 3 7 0 6 

6 6 5 2 2 

B 

D S C 7 4 

2 6 

6 16 5 1 

6 6 0 7 3 

B 

D S C 7 5 

4 4 

4 2 0 0 3 

3 0 6 5 3 

B 

D S C 7 6 

3 1 

10 3 7 5 

5 16 3 3 

B 

D S C 7 7 

3 1 

10 3 7 5 

5 2 4 2 1 

B 

D S C 7 8 

3 7 

7 7 7 7 7 

7 7 7 7 7 

B 

D S C 7 9 

0 0 

0 0 0 0 0 

0 0 0 0 2 

B 
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Floating Point Arcsine-Arcosine Routine 
Specifications 


Identification Tag: SNI-2 

Type: Subroutine 

Assembly Routine Spec: SUB 50349 06112 

Storage: 49 instructions, addresses 

0AS00 (1AGOO) thru OAS 48 (IAS 48 ) 

12 constants in program, addresses 
2AS00 (3AS00) thru 2AS11 (3AS11) 

61 words total program storage, addresses 
OASOG (lASOO) thru OAS 48 (IAS 48 ) 

2AS00 (3AS00) thru 2AS11 (3AS11) 

3 words temporary storage pool used, addresses 
00027b thru 00031b 

The constant pool is used by this routine 


Program Entrances: 
Program Exit: 

Alarm Exit: 


0AS02 for arcsine, 0AS03 for arcosine 
0AS01 

The alarm exit is used by this routine 


Drum Assignment: 
Machine Time: 

Mode of Operation: 


Address 64155 b thru 64251b 
7.17 ms average, 8.74 ms maximum 
Floating point 


Coded by: M. 
Code Checked by: R. 
Machine Checked by: M. 
Approved by: W. 


Perry 

August 25, 1955 

Bigelow 

August 28, 1955 

Perry 

September 7, 1955 

Bauer 

September 12, 1955 






Description 
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When supplied with an argument X in SNAP form, this routine will compute the 
arcsine or the arcosine of X (depending on which of two entrances was used) 
using a Rand Polynomial Approximation producing the answer in SNAP form. 

Programming Instructions 

This routine can be inserted into a program by CKP-0 by the use of a "SUB" 
card in the input deck. 

1. Place the argument X in the accumulator . X must be in SNAP form. 

2. Return Jump to the subroutine . Assuming that the subroutine was assigned 

to region 00K00 for assembly, use the instruction RJ 00K01 00K02 for arcsine, 
or RJ 00K01 00K03 for arcosine. 

3. At the time of exit from the subroutine, the double length extension of 
arcsine X, or arcosine X, in SNAP form will be in the accumulator. 

Error Analysis 

mm r )^ 

The error in the result produced by this subroutine is less than 2 '* . 

Mathematical Analysis 

1. The Rand Polynomial Number 39 is evaluated using the absolute value of X 
as the argument. Designate the result as P(X). 

2. The square root of 1 minus the absolute value of X is found using the square 
root subroutine within SNAP. Designate this results as R(x). 

3. If X is positive, let Y = P(X)R(X) 

If X is negative, let Y = m-P(X)R(X) 

4* Arcsine = X = (tt/ 2)-Y 
Arcosine X = Y 

5. This procedure places arcsine X in the first or fourth quadrant, and 
arcosine X in the first or second quadrant. 

Range of Variable 

An alarm will occur if the argument is outside the range -1 X 1. Any argument 
within this range will give results with the above stated accuracy. 

Alarm Conditions 


An alarm print will occur if the argument is outside the permissible range. The 
flexowriter will print "alarm" and the address of the cell in the main program 
containing the RJ instruction which was used to enter SNI-2. 
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Special Note 

The SNAP floating point routine must be in electrostatic storage before this 
subroutine can be used, since the square root subroutine is used within this 
routine• 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45 * California 


STORAGE TO MAGNETIC TAPE TRANSFER ROUTINE 


Identification Tag: 
Type: 

Storage: 


Specifications 


STT-0 

Service routine (with a program entry available) 

97 instructions, addresses 40006b, 74530b thru 
74667b 

11 constants in program, addresses 74670b thru 
74702b 

108 words total program storage, addresses 40006 b, 
74530b thru 74702b 

The constant and temporary storage pools are not 
used by this routine 


Service Entrance: 

Address 40006b 


Program Entrance: 

Address 74532b 


Program Exit: 

Address 74544b 


Alarm Exit: 

The alarm exit 

is not used by this routine 

Drum Assignment: 

Addresses 74530b thru 74702b 

Machine Time: 

5.6 seconds for 

transfer of (ES) 

Mode of Operation: 

Fixed point 


Coded by: 

R. Beach 

Nay 11, 1955 

Code Checked by: 

C. Koos 

August 14» 1955 

Machine Checked by: 

C. Koos 

August 20, 1955 

Approved by: 

W. Bauer 

August 30, 1955 
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Description 

This routine transfers information from the internal computer memory to magnetic 
tape where it will be stored until read back in again by TST-0. 

A parameter word is used to specify 

1. The location of data to be stored 

2. The MT unit to be used for storage 

3. Whether or not MT is to be rewound to its original position after storage 

4- The address to which control is to be transferred when the data is read 

back by TST-O. 

When using STT-0 as a subroutine the parameter word follows the RJ instruction 
used to enter the routine. When using STT-0 as a service routine the parameter 
word is manually entered in Q when the computer halts (after being started at 
the service entrance). 

At the time of entry the routine stores (ES) on the drum, bootstraps itself 
into ES, stores (A) and (Q) and obtains the parameter word. At is conclusion 
the routine restores (ES), (A) and (Q) and transfers control to the exit 
instruction. 

The routine stores one block of information in addition to the number of blocks 
necessary for storing the data, as follows: 

1. The first half of the first block contains (Q), (A), the parameter word 
and twelve zero xrords. 

2. The second half of the first block thru the first half of the last block 
inclusive contain the information to be stored. 

3- The last half of the last block contains the sum of the data (that is, the 
double precision sum of the split extension of each word), the number of 
blocks transferred to tape, the starting and stopping addresses for the 
transfer, and eleven zero words. 

Parameter Word 


This parameter word is of the form BC DEEFF GGGGG, x-zhere B, C, D, E, F, and G 

are all octal digits. 

B. The octal digit B determines whether (ES) is to be stored on MT. If B = 0 
(E5) will be stored, if B ^ 0 (ES) will not be stored. 

G. The octal digit G determines whether MT is to be rewoxmd to its original 
position after the data has been transferred. If C = 0 the rewind xm.ll be 
executed, if C ^ 0 it will not be. 

Do The octal digit D determines the MT unit on xjhich the data is to be stored. 
MT xxnits are specified by the same digits used in the standard 1103 MT 
commands. 
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E. The two octal digit number EE specifies the address of the first word 
to be transferred from internal storage to tape. This number is the 
integer part of the first address devided by . That is, (EE)(512) 
is the address of the first cell to be transferred. 

F. The two octal digit number FF specifies the address of the last word to 
be transferred. As in E above this number must also be a multiple of 
512. (FF)(512) is the address of the last word to be transferred. 

G. The V-address portion of the parameter word (GGGGG) specifies the address 
to which PAK is to be set when the transferred information is read back to 
internal memory by TST-0. 

As an example consider the parameter word 01 24246 00017B. This specifies a 
transfer of (SS) and the contents of cells 42000b thru 45777b with no rewinding 
after the transfer. PAK will be set to 00017b by TST-0 when the routine is 
read back to internal memory. 

Operating Instructions (to be followed when the routine is used as a service 
routine) 

1. Set PAK to 40006b and start . 

2. Computation halts with the MS instruction 56 00000 00010. 

3. Enter the parameter word in Q and start . 

4. Computation halts when the transfer is completed, setting PAK to the 
address specified in the parameter \rord. 

Programming Instructions (to be followed when the routine is to be used as a 
subroutine) 

1. Enter the routine with the RJ instruction 37 74544 745 32. If the RJ 
instruction is stored at address n the parameter word should be in 
address n + 1 and at its conclusion the routine will transfer control 
to the instruction in address n + 2. 

Restore 

To restore (ES), (A), and (Q) at any time before normal completion set PAJK to 
40040b and start. 

The magnetic tape will be rev/ound at this time if the parameter word specifies 
a rewind. 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45, California 

Magnetic Tape to Storage Transfer Routine 

Specifications 

Identification Tag: TST-0 

Type: Service routine (with a program entry available) 

Storage: 95 instructions, addresses 40007b, 74340b thru 

74475b 

8 constants in program, addresses 74476b thru 
74505b 

103 words total program storage, addresses 40007b, 
74340b thru 74505b 

The constant and temporary storage pools are not 
used by this routine 


Service Entrance: 

Address 40007 


Program Entrance: 

Address 74342 


Program Exit: 

Address 74354 


Alarm Exit: 

The alarm exit 

is used by this routine 

Drum Assignment: 

Addresses 74340b thru 74505b 

Machine Time: 

5.6 seconds for 

transfer of (ES) 

Miode of Operation: 

Fixed point 


Coded by: 

R. Beach 

May 11, 1955 

Code Checked by: 

C. Koos 

August 13, 1955 

Machine Checked by: 

C. Koos 

August 21, 1955 

Approved by: 

VJ. Bauer 

August 30, 1955 
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Description 

This routine has been designed to read back into the internal computer memory the 
information transferred to MT by STT-O. A parameter word is used to tell the 
routine which MT contains the information to be transferred and the address to 
which PAK is to be set after the routine has finished operating. 

When used as a subroutine, the parameter word follows the RJ instruction trans¬ 
ferring control to TST-O. When used as a service routine the parameter word is 
entered in the Q register before activating the routine. 

The routine stores (ES) on the drum, bootstraps itself into ES and reads in one 
block from magnetic tape. It examines the parameter word used by STT-0 and loads 
the specified portions of memory while computing the sum as the data is transferred 
The sum is checked against the sum placed on MT by STT-O. 

If the sum is correct, the parameter word is consulted to determine the address to 
which PAK is to be set and the proper address is placed in the exit instruction. 

The parameter word from STT-O is checked to determine whether or not the MT is to 
be rewound after the transfer and a rewind command given if rewind was specified 
when STT-O was used to store the data. (A) and (Q) are then set from values 
stored on MT, (ES) is restored, and control is transferred to the exit instruction. 

Parameter Word 

The form of the parameter word is OX Y0000 ZZZZZ, where X, Y, and Z are octal digit 

X. The octal digit X determines the cell to which control will be transferred to 
at the conclusion of the routine. 

If X = 0 control will be transferred to the address specified in the parameter 
word used for STT-O when the data was transferred to magnetic tape. If X ^ 0 
control will be transferred to ZZZZZ. 

Y. The octal digit Y determines which ITT unit will be selected. MT units are 
specified by the same digits used in the standard 1103 MT commands. 

Z. The V-address of the parameter word (ZZZZZ) specifies the address to which 
control will be transferred at the conclusion of the routine (see X above). 

Operating Instructions (to be followed when TST-0 is used as a service routine) 


1. Manually enter the parameter word in Q . 

2• Set PAK to 40007b and start . 

3. Computation will halt after a successful transfer with PAK set as specified 
(see "Parameter Word" above). 

Programming Instructions 


Use the RJ instruction 37 74354 74342B to enter TST-0. The cell immediately 
following the RJ instruction must contain the parameter word. 
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2 . .After successful tra nsfer control will be transferred to the cell specified 
by the parameter word. 

Alarm Conditions 


If the sum test fails ALR-1 is entered and "T3T-0 75777" is printed on the flexo- 
writer. 

Starting after the alarm halt causes a rewind of the tape and another transfer of 
the same data from KT. 

Restore 

If, at any time during its operation, TST-0 is interrupted (or after an alarm 
print), PAK set to 40040b and the machine started, the routine will 

1. -texjind KT (if this had been specified) 

2. Restore (SS), (A), and (Q) 

3. Transfer control to the TST-0 exit instruction 
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Utility Routine Transfer-Magnetic Tape to Drum 

Specifications 


Identification Tag: URT-1 

Type: Service routine (but not available as part 

of service routine library) 

Storage: 45 instructions, addresses 00000b thru 00054b 

1 constant in program, address. 00073b (remain¬ 
ing constants stored with instructions) 

The remainder of ES is used as temporary storage 

The constant and temporary storage pools are not 
used by this routine 


Entrance: MT Start 

Machine Time: Approximately 15 seconds for successful transfer 

of the service routine library only, or approx¬ 
imately 35 seconds for transfer if CMP-0 and the 
subroutine library are included. 


Coded by: 

R. Beach 

April 1, 1955 

Code Checked by: 

R. Beach 

April 2, 1955 

Machine Checked by: 

R. Beach 

April 14, 1955 

Approved by: 

W. Bauer 

August 23, 1955 
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This routine is located in the first two blocks of magnetic tape unit zero 
and is specifically designed to transfer the library from magnetic tape to 
magnetic drum. 

It operates in two different modes, the mode of operation having been selected 
when it was activated. Mode No. 1 loads addresses 40001b thru 40040b and 
70000b thru 75777b only. Mode No. 2 loads these addresses and addresses 60000 b 
thru 67777b. 

This routine does not save the contents of ES since it is assumed that it will 
be used only when a complete reloading of the computer memory is necessary. An 
MT Start reads in the first 32 words of the routine and starts operation. The 
routine first reads in an additional 32 words from MT (remainder of the routine 
itself) and then checks its sum, which is stored at the end of the second block. 
In doing this, it also checks the sum of the service routine library which is 
stored in the second block. 

After a successful sum check the routine read's in the 96 blocks needed to fill 
70000b thru 75777b. Twenty-four blocks are read in at one time and transferred 
to MD, then read back into ES and summed. When all 96 blocks have been trans¬ 
ferred the routine reads in one more block and transfers this into 40001 thru 
40041, reads it back into ES, stuns, and adds the sum of the sum of the 96 blocks 
previously transferred. This computed sum is then checked against the correct 
sum. If the sum checks, the mode of operation is determined. 

If Mode No. 1 has been selected a rewind instruction is given and the computer 
halts with the MS instruction 56 00000 40001, setting PAK to the FRI-0 starting 
address. 

If Mode No. 2 has been selected TST-0 is activated to read in Rawoop and the 
subroutine library. A rewind instruction is given and the computer then halts 
with the MS instruction 56 00000 40010, setting PAK to the CMP-0 starting 
address. 

Operating Instructions 

I. To transfer the service routine library only 
1• Select MT Start 

2. Change PCR (if necessary) to select the proper 1*11 unit 

3. Start . The routine loads 40001b thru 40041b and 70000b thru 75777b 
and halts with the MS instruction 5& 00000 40001, setting PAK to the 
FRI-0 starting address. Successful transfer takes about 15 seconds. 

II. To transfer the service routine library, CMP-0, and the subroutine library 

1. Select IN' Start 

2. Change PCR (if necessary) to select the proper MT unit 
Make (AR) greater than zero 


3 . 
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4. Start . The routine loads 40001b thru 40040b, 70000b thru 75777b, 
and 60000b thru 67777b and halts with the MS instruction 56 00000 
40010 setting PAK to the starting address of CMP-0. Successful 
transfer takes about 35 seconds. 

Alarm Conditions 

1. If the machine halts on a final stop almost immediately after an 
liT start the transfer routine is not in ES correctly. 

Select MT start and start for another transfer. If the second 
transfer is not successful revert to the bootstrap procedure to 
load the library. 

2. If the flexowriter prints an "e" and the machine halts with the 
MS instruction 56 00000 00051 the sum of the library transferred 
to the drum is not correct. 

Select MT start and start for another ’transfer. 

3. When operating in Mode Wo. 2 TST-0 is activated after address 40001b 
thru 40040b and 70000b thru 75777b have been loaded successfully. If 
the sum test fails while loading addresses 60000b thru 67777b, the 
alarm routine prints the tag word TST-0 and the address 75777b. Start 
ing causes rewind and another MT transfer to addresses 60000b thru 
67777b. 

Warning 

After a successful transfer the computer halts but MT is still rewinding to its 
original position. If a Master Clear is executed and the machine started a 
reference to the rewinding MT (before rewinding is complete) will cause trouble. 
If no Master Clear has been executed the machine will wait for the rewinding to 
be completed. 
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THE RAKO-WOOLDRIDGE CORPORATION 
Los Angeles 45, California 

Utility Routine Transfer Drum to Magnetic Tape 
Specifications 


Identification Tag: 
Type: 

Storage: 


URT-3 

Service routine 

108 instructions, addresses 40000b and 
00050 b thru 00222b 

8 constants in program, addresses 
00223b thru 00232b 

All of ES is used for temporary storage but 
not included with the program 

116 words total program storage, addresses 
40000 b and 00050b thru 00232b 

The temporary and constant storage pools are 
not used by this routine 


Machine Time: 

Mode of Operation: 


100 seconds approximately 
Fixed point 


Coded by: 

R. 

Beach 

Machine Checked by: 

R. 

Beach 

Approved by: 

U. 

Bauer 


August 1, 1955 
August 15, 1955 
August 23, 1955 
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Description 

Upon being entered the routine first sets up all references to magnetic tape 
to correspond to the unit selected when URT-3 is activated. 

The contents of cells 40001b thru 40040b and 70000b thru 75777b are then summed 
and the sum placed in 01774b and 01775b. The contents of cells 01700b thru 
01775b are then summed and the sum placed in 01776b and 01777b. The information 
in cells 01700b, 70000b thru 75777b, and 40001b thru 40040b are then transferred 
to KT in that order. 

The contents of cells 60002b thru 67777b are summed and the sum placed in 60000 b 
and 60001 b. 

STT-0 is entered to dump the information in cells- 60000b thru 67777b (the sub¬ 
routine library consisting of Rawoop and the subroutines). 

URT-3 computes the sum of all information placed on KT, rewinds MT to its original 
position and reads back the data from MT, summing as it reads. 

If the sum is correct, a BM instruction is given to return KT to its original 
position and computation halts with PAK set to 40001b, the FRI-0 starting address. 

Operating Instructions 

I• Select KD Start . 

2. Set, the number of the MT to be loaded in the low order octal digit of Q. 

3« Start. 


URT-3 transfers the complete library to MT and halts with the MS instruction 
56 00000 40001 after a successful transfer. 

Alarm Conditions 


If the sum of data read back from KT is not correct the alarm routine is entered; 

the tag word URT-3 and the address 00067 are printed on the flexowriter. The sum 

of the data on KT appears in A. 

Restarting at this time initiates another transfer of data. 

Warnin g 

1. It is advisable to position MT at the first block before loading so that the 
KT can be repositioned, manually if necessary. 

2. After a successful transfer the machine halts but KT is still rewinding to 
its original position. If a master clear is executed and the machine started 
a reference to the rewinding KT (before the rewinding is complete) will cause 
trouble. If no master clear has been executed the machine will wait for the 
reversing to be completed. 
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0 0 0 0 0 

0 0 3 0 0 

12 4 

6 5 

0 0 0 3 0 

0 0 3 0 0 

12 5 

2 1 

0 0 12 3 

0 0 2 2 3 

12 6 

4 2 

0 0 2 2 4 

0 0 12 2 

12 7 

6 5 

0 0 0 0 1 

0 0 2 4 0 

13 0 

2 3 

6 0 0 0 0 

6 0 0 0 0 

13 1 

2 3 

6 0 0 0 1 

6 0 0 0 1 

13 2 

1 5 

0 0 13 0 

0 0 13 6 

13 3 

3 1 

6 0 0 0 0 

0 0 0 4 4 

13 4 

3 2 

6 0 0 0 1 

0 0 0 0 0 

13 5 

7 5 

3 10 0 0 

0 0 13 7 

13 6 

1 1 

0 0 0 0 0 

0 0 3 0 0 

13 7 

7 5 

2 10 0 0 

0 0 14 1 

14 0 

3 2 

0 0 3 0 0 

0 0 0 0 0 

14 1 

1 1 

2 0 0 0 0 

6 0 0 0 1 

14 2 

5 4 

2 0 0 0 0 

0 0 0 4 4 

14 3 

1 1 

2 0 0 0 0 

6 0 0 0 0 

14 4 

2 1 

0 0 13 6 

0 0 2 2 5 

14 5 

4 2 

0 0 2 2 6 

0 0 13 3 

14 6 

3 1 

6 0 0 0 0 

0 0 0 4 4 

14 7 

3 2 

0 0 17 5 

0 0 0 0 0 

15 0 

3 2 

6 0 0 0 0 

0 0 0 0 0 

15 1 

3 2 

6 0 0 0 1 

0 0 0 0 0 

15 2 

3 2 

6 0 0 0 1 

0 0 0 0 0 

15 3 

3 2 

0 0 2 2 7 

0 0 0 0 0 

15 4 

1 1 

2 0 0 0 0 

0 0 2 3 4 

15 5 

3 4 

2 0 0 0 0 

0 0 0 4 4 

15 6 

1 1 

2 0 0 0 0 

0 0 2 3 3 

15 7 

3 2 

0 17 7 4 

0 0 0 0 0 

16 0 

3 2 

0 17 7 6 

0 0 0 4 4 

16 1 

3 2 

0 0 2 3 3 

0 0 0 0 0 

16 2 

7 5 

2 0 0 0 3 

0 0 16 4 

16 3 

3 2 

0 17 7 5 

0 0 0 0 0 

16 4 

3 2 

0 0 2 3 4 

0 0 0 0 0 

16 5 

3 2 

0 0 2 3 4 

0 0 0 0 0 

16 6 

3 2 

0 0 2 3 2 

0 0 0 0 0 

16 7 

3 2 

0 17 7 7 

0 0 0 0 0 

17 0 

1 1 

2 0 0 0 0 

0 0 2 3 4 

17 1 

5 4 

2 0 0 0 0 

0 0 0 4 4 

17 2 

1 1 

2 0 0 0 0 

0 0 2 3 3 

17 3 

2 3 

1 0 0 0 0 

1 0 0 0 0 

17 4 

3 7 

7 4 5 4 4 

7 4 5 3 2 

17 5 

1 1 

0 6 0 7 0 

0 0 0 0 0 

17 6 

6 7 

0 0 3 4 4 

0 0 2 1 5 


STORE 

SERVICE 

LIBRARY 




17 7 

2 3 

1 0 0 0 0 

1 0 0 0 0 

2 0 0 

5 5 

0 0 2 3 0 

1 0 0 3 0 

2 0 1 

1 1 

1 0 0 0 0 

0 0 2 3 5 

2 0 2 

6 4 

0 0 0 1 4 

0 0 3 0 0 

2 0 3 

7 5 

2 0 6 0 0 

0 0 2 0 5 

2 0 4 

3 2 

0 0 3 0 0 

0 0 0 0 0 

2 0 5 

1 1 

0 0 2 3 5 

1 0 0 0 0 

2 0 6 

4 4 

0 0 2 0 7 

0 

0 2 0 1 

2 0 7 

1 6 

0 0 17 6 

0 

0 2 14 

2 10 

3 4 

0 0 2 3 4 

0 

0 0 4 4 

2 11 

4 3 

0 0 2 3 3 

0 

0 2 13 

2 12 

1 6 

0 0 2 1 3 

0 

0 2 14 

2 13 

6 7 

0 0 3 4 4 

0 

0 2 16 

2 14 

4 5 

0 0 0 0 0 

0 

0 0 0 0 

2 15 

5 6 

0 0 0 0 0 

4 

0 0 0 1 

2 16 

5 4 

2 0 0 0 0 

0 

0 0 4 4 

2 17 

3 2 

0 0 2 3 4 

0 

0 0 0 0 

2 2 0 

1 1 

0 0 2 3 1 

7 

5 7 5 6 

2 2 1 

3 7 

7 5 7 0 1 

7 

5 7 0 2 

2 2 2 

4 5 

0 0 0 0 0 

0 

0 0 7 0 

2 2 3 

0 0 

0 14 0 0 

0 

0 0 0 0 

2 2 4 

1 1 

7 6 0 0 0 

0 

0 3 0 0 

2 2 5 

0 0 

0 10 0 0 

0 

0 0 0 0 

2 2 6 

11 

7 0 0 0 0 

0 

0 3 0 0 

2 2 7 

0 0 

0 0 2 0 1 

0 

0 0 0 0 

2 3 0 

0 0 

7 0 0 0 0 

0 

0 0 0 0 

2 3 1 

3 4 

12 0 15 

6 

7 0 0 4 

2 3 2 

1 2 

5 0 0 0 0 

0 

0 2 2 0 
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RAMO-WOOLDRIDGE ONE-PASS ASSEMBLY PROGRAM 


Ng 0 

(Revised) 


FOR THE ERA-1103 
By 

Jules Mersel and Thomas Tack 


The Ramo-Wooldriage one-pass assembly program (Rawoop) is designed t© 
translate an 1103 program originally coded in symbolic, regional, decimal form 
to its final octal form. 

The program will accept instructions with symbolic addresses and 
numerical data in binary or decimal form. It will cause subroutines to b© 
appropriately assembled in the program. The result of assembling a program 
will be output in a form to facilitate program check-out and rapid program 
read-in of the translated data. 

Input- 

Punched cards are used as input for Rawoop. The punched card has one 
1103 word plus remarks on it or the card contains an instruction to the assembly 
program and remarks. 

Rawoop’s output is both punched cards and punched paper tape. 

The output card contains an exact duplicate of the corresponding input 
card in addition to the octal translation of the input card's information,. The 
programmer can obtain a side by side -listing Of-his untranslated program, remarks, 
and translated program by running the output deck of cards on associated equip¬ 
ment such as the IBM 402. 



The punched paper tape is a seventh-level bioctal tape complete with 
insert and check addresses, and is sufficient for putting the translated program 
into the 1103 either by using the ERA photc-electric reader or by using a Ferranti 
tape reader with an appropriate read-in program. 

Input and 


Ou tput Ga rda 


The input and and output cards are standard 80-column, 12=row cards. 
Columns 1-5 are U3ed for the symbolic address of the untranslated word. 
Columns 7-10 are used fox’ the 11C3 instruction or psuedo instruction. 
Columns 12-16 are for the u address. 

Columns 18-22 are for the v address. 

Columns 24-26 are for decimal scaling information. 

Columns 28-30 are for binary scaling information. 

Columns 32-43 are for alpha-numeric remarks. 
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In addition to the above columns, the output cards contain the translated 
information in columns 47-67. 

On the input cards , zeros need not be punched . 

Speed of Assembly 

Due to the 1103's ability to read and punch cards simultaneously while it 
is punching paper tape, Rawoop takes only a few seconds more than the total card 
reading time to execute its entire translation. Errors do not necessitate complete 
re-assembly. Consequently, Rawoop is exceedingly economical in its use of machine 
time. 

Symbolic Addresses 


A five character form, in keeping with 1103 machine form, is used by Rawoop 
for symbolic addresses. The first three characters designate the region of the 
address while the last two characters are the sequence number of the address within 
its region. 

For example, 18J00 is the zeroth address in region 18J and 00C19 is the 
nineteenth address in region 01C (01C00 is the first address in region 01C). In 
keeping with the one-pass nature of Rawoop, the sequence numbers are consecutive 
decimal numbers. The absolute address assigned to 01 Cl 9 is nineteen greater than the 
address assigned to 01 COO. Thus, the address structure has a regional character. 

As indicated above, the first two characters of the relative address or 
region are numeric and the third character is alphabetic. 

The absolute address for region 000 (all zeros) has already been chosen in 
Rawoop to be zero. Consequently, 00029 would have as its octal translation, 00035 
and absolute machine addresses up to 99 will be correctly translated. The assembly 
program recognizes the alphabetic letter "0" as different from the numerical c ’Q“g 
to avoid confusion, the programmer will probably not want to use symbolic addresses 
involving the letter 0. 

A, B, and Q Addresses 


The accumulator, the B register (accumulator bits A ?Q — A^), and the Q 
register must be addressed by putting an A, B, or Q in the leftmost column of 
either the u or v fields. The remaining four columns may have no punches or zero 
punches. 


The octal translations of A, B, and Q are 20000, 30000, and 10000 respectively. 
Addresses Involving j, k, and n 


The command structure of the 1103 is such that the u and v addresses at 
times contain numbers rather than machine addresses as is the case in the SPuk, 

RPjn, w and MJjv commands. 

The representation of j,n hss j as the first character and n as the last 
four characters. The quantities j and n axe written as decimal numbers. Thus a j,n 
of 30199 is translated as 30307 (octal). No distinction is made by Rawoop between 
j,n addresses and j addresses. If the programmer desires to use the last four- 
characters of a j address to store a number (not a relative address), he may do so 
knowing that these four digits will be treated as the n in j,n addresses. 
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In the 1103 address structure, k addresses indicate left circular shifts 
of from 0 to 127 places at most. However, since the 1103 internal hardware 
occasionally makes it desirable to have the first octal bit of a k address be a 
number other than aero, k addresses will b? treated in the s.me manner as j,n 
addresses} for example, 20017 becomes 20021 (octal). 

Void Address es 

Certain of the 1103 commands such as F3- BJj,n — have ignored addresses 
associated with them, all such addresses are treated by Rawoop as if they war© 
relative addresses and are available for the storage of pre-setting addresses. All 

zeros, of course, are translated into all zeros. 

directory Cards 


In a one-pass assembly program, it is necessary that at the beginning of 
the program sufficient information i3 supplied to enable all symbolic addresses 
to be assigned absolute addresses. 

Rawoop does this by means of directory cards. A directory card has a D 
punched in column 1, the base word of the region (e.g. 01 GOO) in the u address 
columns, and the absolute decimal address of the base word in the v address columns 0 
For examples, 3ee figure 1. 

For purposes of assigning decimal addresses to the drum, the convention 
was adopted that octal address 40,000 on the drum has the decimal address 4Q,Q0Q. 
Thus, the drum addresses range from 40,000 — 56,383. 

Rawoop can handle up to 60 directory cards in any one assembly. 

Symbolic Addresses of Program Data 

With the exception of the D cards and the START card, all the input cards 
have a relative address punched in columns 1-5. This address is the address of the 
word to the right and completely determines the memory location into which this word 
will be read by the output bioctal tape. 

Commands 


The 1103 alphabetic representation of the commands is used. These two 
letter combinations, such as RA, are entered into columns 9 and 10. All the stand- 
ard 1103 commands are recognized by Rawoop and this recognition implies knowing 
whether the addresses associated with the command are of the u v, the jn, v, or 
of the u,k types. 

In addition to the standard 1103 commands, the special commands IP, PM, 
and MM are recognized. The PM, MM commands and the availability of the B register 
for addressing are modifications on the Ramo-Wooldridge 1103. PM is a “polynomial 
multiply" command for polynomial evaluation whose octal equivalent is 24§ MM is the 
"modified multiply-add"(faster in operation than MA) whose octal equivalent is 25. 
Hone of these modifications are used in the operation of Rawoop g the program will 
operate on any 1103 with reproducer and high-speed punch. 

IP commands are treated as if the command structure were IPuv. However, 
for users of interpretive programs such as the Convair Flip, a psuedo command is 
available. The command FPabuv, where a and b are octal digits and u and v are 




relative o i^ressss assigned to the electrostatic storis ":.-ru^c ;e-d rat3 i- 
abu'v’, u* and v ! .-.vs 1- oil. nu bers occupying the rig] 1 

tr nslated word with ab to the loft of them. As is shown in figure «, 
into columns 7 and 8} the ab goes into columns 9 and 10 on the input • ,, 

It is sometimes desirable th. t a relative address be placed in a word that 
hs zeros for its command code. To enable this, the command 00 (zeros/ is recog¬ 
nized and translated into 00. The u and v addresses must be symbolic addresses. 

As usual, however, an address of five zeros is translated into five zeros, 

■Decimal Rubber s 

Decimal numbers are presented to Rawoop as normalized numbers times •« power 
of ten, Tne programmer also states the bin ry scaling factor to be applied to the 
resulting rounded binary number. For example, -739,1 is presented as -7,391 x 10*', 

All decimal numoers are normalized so that their absolute v^'.ue lies between 
1 and 9.99999 99999. 

The sign of the number is in column 9, the integral part an column 10 S and 
the fractional part in columns 12-16 and 18-22, The power of 10 allowed is from -10 
to +10, This exponent goes into columns 24-26, The desired binary scale factor goes 
into columns 28-30. For examples, in line 13, Figure 1 p the number to be translated 
is 3.123 x 10- 6 with a scale factor of 2 22 . 

In all cases a minus sign represents a negative number and a zero or n punch 
a positive number. 

floating decimal numbers .-.re presented to Rawoop in the same manner as decizr-.l 
numbers. However, instead of a binary scale factor being placed in columns 58-30, an 
F is punched in column 26. The converted floating decimal number is in the for® u*ed 
in the Gonvair Flip. That is, the leftmost 28 bits is s mantissa with the binary 
point just to the right of the sign bit ana the rightmost eight bits is a signed 
exponent. 

Octal Constants 


Octal constants can be inserted into the program using Rawoop, The octal 
constant is entered into columns 9-10, 12-16, snd 18-22, A ”8" is punched into 
column 24 to signify that the number is in octal (binary) for. , This feature implies 
thit programs coded in usual machine language will be correctly assembled, 

Start C ard 

The signal to Rawoop that all the cards have been received Is a card with 
START punched in columns 1-5, and a relative address punched in columns 1>16, 

This signal causes Rawoop to insert into the translated program in locations 
00000 and 40000 a manual jump to the octal translation of the relative address. 

Hence, after the resulting punched paper tape is read into the 1103, a magnetic dram 
start will start the problem at the relative address indicated in the n columns, 

Sub rout i nes 

Rawoop is designed to translate subroutines coded in octal relative to 01000 
and stored on the arum, ana include them into the main program. This is effected by 
one psuedo command, the "SUB" command. 





Columns 1“5 of the SUB command contain the relative address assigned to 
the zeroth word of the subroutine by one of the D cards. Columns 7, S, and 3 
have the letters SUB. Columns IS, 19, and 20 have the number of words in the 
subroutine. Columns 21 and 22 ho.ve the number of constants at the end of the 
subroutine which are not to be translated. Columns 12“15 have the location of 
where the zeroth word of the subroutine is stored on the drum (this address is 
the decimal Jrum address). In operation, the information in these columns is 
simply copie d from a subroutine specification list, 

A listing of the translated subroutine is usually provided by the output 
cards. The punching of cards for this however, can be suppressed by depressing 
the j=3 jump button. 

Memory Sums 

iiawoop calculates the memory sum of all translated words including the 
00000 and 40000 jump instructions. This sum is the double precision sum of the 
split extension of the translated words. The sum is both printed on the listing 
and is read by the output paper tape into octal addresses 67,776 and 67,777 of 
the drum. The high order value of the sum is in 67,776. 

Ordering of Incut _Car:is 

Rawoop makes the following requirements on the ordering of the input 

cards* 

1, All directory cards must come first. The directory cards, however, 
cnn have any order within themselves. 

2, The START card must come last. 

3, The SUB cards, if any, must immediately precede the START ear H . 
However, the SUB cards can have any order within themselves. 

The cards actually giving the words of the program follow the directory 
cards. For the sake of minimizing the number of insert and check addresses on 
the output bioctal tape; the cards should be in order within their regions. 
However, a correct output tape will result no matter what order these incoming 
cards are in. If the c P rds were out of order, a convenient listing still can be 
obtained by re-ordering the output cards. 

Operatin g Instructions 

The following points are important in the operation of Rawoopg 

1, The reproducer must be set for fields I and II only. 

2, The input cards are to be placed face down with at least six blank 

cards following the START card. 

3, Two cards ere to be fed into the punch channel. 

4, Both the typewriter and the high-speed punch must be turned on. 

5, After reading the assembly program into the machines, an MD start 
is sufficient to start or re-start Rawoop. Rawoop checks its own 
memory sum at the beginning of the problem and gives a signal if 
th' check discloses an error. 






6. All cards are cleared out of the read and write channels at the end 
of the program. 

If it is desired to suppress the output subroutine cards 9 jump 3 should 
be depressed. 

Error_Detection 

idawoop will stop and signal the reason in case of either of the following 
two occurrences? More than sixty D cards are entered or any card other than either 
a SCJB card or the START card follows a 3iJB card, 

/ill other errors, including a D card occurring in the main deck wall not 
stop the machine. For each card with an error on it, "-AuRGcl 06 will be printed on 
the typewriter. The contents of the erroneous card will be ignored and will not 
affect the memory sum. The corresponding output cards will h. vs "error 0 " punoned 
on them in the place ordinarily used for the translated information. 

The detected errors can be corrected by a second assembly o: only the now 
corrected input cards, their associated D cards, and the START card, This wilt 
give a secondary input type with its own memory sum. 

An Example 

The following pages contain the listing of an alarm routine coded 
Ramo“Wooldridge using the R&woop notation and subsequently translated by R&woap 0 

Note that there are two output "start" cards though there was only one 
input "start" card. The first of these is to put an MJ into 00000§ the second 
allows a MD start at 40000, 

Symbolic word N04 is an example of the use of the aero, aero, aero.' region 
to get a decimal integer less than 100 without using the usual decimal number 
format. 
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OOLOO 

49300 

3 DIRECTORY 

62124 

00 

00000 

00000 



OONOO 

49333 

CARDS FOR 

62165 

00 

00000 

00000 



OOZOO 

49345 

ALR-0 

62201 

00 

00000 

00000 

zoo 



37 B 

FLEX 0 

62201 

00 

00000 

00037 

ZOI 



52 B 

FLEX 1 

62202 

00 

00000 

00052 

Z02 



74 B 

FLEX 2 

62203 

00 

00000 

00074 

Z03 



70 B 

FLEX 3 

62204 

00 

00000 

00070 

Z04 



64 B 

FLEX 4 

62205 

00 

00000 

00064 

Z05 



62 B 

FLEX 5 

62206 

00 

00000 

00062 

Z06 



66 B 

FLEX 6 

62207 

00 

00000 

00066 

Z07 



72 B 

FLEX 7 

62210 

00 

00000 

00072 

Z08 



60 B 

FLEX 8 

62211 

00 

00000 

00G60 

Z09 



33 B 

FLEX 9 

6221 5 

00 

00000 

00033 

ZIO 



45 B 

FLEX CAR RTN 

6221 3 

00 

00000 

00045 

Z11 



4 B 

FLEX SPACE 

62214 

00 

00000 

00004 

Z12 



57 B 

FLEX SHFT DM 

62215 

00 

00000 

00057 

Z13 



47 B 

FLEX SHFT UP 

62215 

00 

00000 

00047 

214 



51 E 

FLEX TAB 

62217 

00 

00000 

00051 

Z15 

\ 


42 B 

FLEX PERIOD 

62220 

00 

00000 

00042 

Z16 



56 B 

FLEX MINUS 

62221 

00 

00000 

00056 

LOO 

MJ 

00000 

00000 

EXIT 

62124 

45 

00000 

00000 

LOI 

TP 

A 

N 6 

STORE AR 

62125 

11 

20000 

62173 

L02 

LA 

A 

36 


62126 

54 

20000 

00044 

L03 

TP 

A 

N 5 

STORE AL 

62127 

11 

20000 

62172 

L04 

TP 

Q 

N 7 

STORE Q 

62130 

11 

10000 

62174 

LOS 

TP 

OOOuO 

N & 

STORE FI 

62121 

11 

00000 

62175 

L06 

TP 

L 

00000 

SET MJ IN FI 

62132 

11 

62124 

00000 

L07 

PR 

00000 

ZIO 

PR CAR RETRN 

62133 

61 

00000 

62213 

L08 

PR 

00000 

Z12 

PR SHIFT DN 

62154 

61 

00000 

62215 





Pg 8 2 


L09 

TU 

L18 

L20 


jRSSST ADORES 

62125 

15 

62146 

62150 

LI 0 

TP 

N 3 

N 9 

• 

SET INDEX 1 

62136 

11 

62170 

o. 176 

L11 

TP 

N 2 

NIC 


SET INDEX 2 

62137 

11 

621 67 

62177 

LI 2 

TP 

Nil 

Q 


TAG TO Q 

62140 

11 

62200 

10000 

LI 2 

LQ. 

Q 

6 



62141 

55 

10000 

00006 

LI 4 

PR 

00000 

Q 


PR TAG CHAR 

62142 

61 

00000 

10000 

LI 5 

IJ 

N 9 

LI 3 


INDEX 1 

62143 

41 

62176 

62141 

LI 6 

RP 

5 

LI 8 



62144 

75 

00005 

62146 

LI 7 

PR 

00000 

211 


PR 5 SPACES 

62145 

61 

00000 

62214 

L16 

TP 

N 4 

N 9 


SET INDEX 1 

62146 

11 

62171 

62176 

LI 9 

RA 

L20 

N 1 


ADV U OF N1 

62147 

21 

62150 

62166 

L20 

SP 

00000 

36 



62150 

31 

00000 

00044 

L21 

ss 

A 

3 



62151 

34 

20000 

00003 

L22 

SA 

N 

00000 


PLUS DUMMY 

62152 

32 

62165 

00000 

L23 

TP 

A 

L24 


TO N1 

62153 

11 

20000 

62154 

L24 

00 

00000 

00000 


PR DIGIT 

62154 

00 

00000 

ooooo 

L25 

IJ 

N 9 

L21 


INDEX 1 

62155 

41 

62176 

62151 

L26 

IJ 

N10 

LI 6 


INDEX 2 

62156 

41 

62177 

62144 

L27 

SP 

N 5 

36 


RESTORE AL 

62157 

31 

62172 

00044 

L28 

SA 

N 6 

00000 


RESTORE AR 

62160 

32 

62173 

OOOOO 

L29 

TP 

N 7 

Q 


RESTORE Q 

62161 

11 

62174 

10000 

L30 

TP 

N 8 

00000 


RESTORE FI 

62161 

11 

62175 

OOOOO 

L31 

FR 

00000 

zio 


PR CAR RETRN 

62163 

61 

00000 

62213 

L32 

MJ 

00000 

L 


STOP 

62164 

45 

00000 

62124 

NOO 

PR 

00000 

oozoo 


DUMMY 

62165 

61 

00000 

62201 

NOI 


1 


B 

ADV U 

62166 

00 

00001 

OOOOO 

N02 



2 

B 

DEC 2 

62167 

00 

00000 

00002 

N03 



5 

B 

DEC 5 

62170 

00 

00000 

00005 

N04 



11 


DEC 11 

62171 

00 

00000 

00013 






NOS 

00 

00000 

00000 

B 

AL 

62172 

00 

00000 

00000 

NOS 

00 

00000 

00000 

B 

AR 

62173 

00 

00000 

00000 

NQ7 

00 

00000 

00000 

B 

Q 

62174 

00 

00000 

00000 

NOS 

00 

00000 

00000 

B 

FI 

62175 

00 

00000 

00000 

N09 

00 

00000 

00000 

B 

INDEX 1 

62176 

00 

00000 

00000 

NIO 

00 

00000 

000 0 

B 

INDEX 2 

62177 

00 

00000 

00000 

Nil 

00 

00000 

00000 

B 

TAD 

62200 

00 

00000 

00000 

START 


00LQ1 




00000 

45 

00000 

62125 

START 


0QL01 




40000 

45 

00000 

62125 
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; Notes on FLIT 

1. Commands !.0 and i,L now les^e (P) ur.ciia np-ed. 

2. '( v ) for con and .2 r*av not ■** tero, although the exponent part 

(▼y to vg) ma" be xerc. 

3 . In addition to cells#01.'.7'7 to Cl 777 and those a: signed to oub- 
* routine ca nds, Flip also occupies c* Ilf 0C0C1 (entrance), OOOliO 

to CvC77 (constant*) and 7o000 to 7o0^2 (alarm), 
i . The 07 Command ca.i be used to teruirate a series. If 

'(*)- — (#) 

^ y <2 ' 27 

' V « • , 

this cormarkJ a*! 11 lea*, e (A) -«• 0. An example of it use is th.s:- 


01 TX) 

III 

00 

Uioo 

11.01 

x +5x -*x,R 

Cli 01 

li. 

07 

Upoi 

li^oo 

[jx-xj+ x -eR 

010,2 

. 1.7 

0050 c 

G1GC3 

! 2 _*|: 2-27 
1 , X 1 

(liiOC) 

V, 




■ A 

(V Cl) 

X" 






: ?A? ■ . ■ i \ !'& 

- ■> - \ v - . ; ' 1 :• 1 ' v ; ' 


.. ■■ y vv " 

b'd ’•••. • ef- 


... . , . • • _ , ^ : 7 

- 7 "' ' '' '' ' ''.L\. 1 ;/ 'L : ' • / ■' 

-.ui-u-ty; -tv.*• -c. v • ,>. • • • . " . 









A Floating Point Subroutine System Using A Psoked lepreseatation for the 

MBA 1103 Computer 


‘ (Flip) Revised lOfo/SL 


The system described here is intended to be indefinitely expanded to inolude 


card operations, transcendental functions etc. The interpreted instructions are 


10 oclsI digits long (preceded by octal li+ # the IP conaand). The basic system 

' i 

•couples ES cells 011+77 to 01777 and 00001. If any subroutine operations t re used. 


more fpace is needed. The whole system is leoated on the drum in lecstions 
76000 to 77777. The basic operations in FLIP use temporaries 00002 to 000li+. 


Subroutine'operations use cells 00002 to 00037* 


Composition of Instructions 


Instruction Code 


6 bits 


First Address, x 


12 bits 


Beoond Address, y 


12 bits 


(1 29 •** W 
U23 ... 1^2) 

(ill ••• ^0 5 


II Addresses 


The last 10 bits of each address fora fie "befio" address. The 


first two bits, if ones, oause either or both of the two special 


counters b^ and b£ tobe added to this baslo address to form the 


•execution" address. The first bit oauaes bj to be added, the 


second bit causes b^ to be added. The instruction Is exeouted 


using this execution address which must not exceed 01777* All 


execution addrc 


refer to ES» 


III Special Registers 


In addition to R and Q, two othar $6 bit registers, and 
are specially rafenred to in orders. In order to refer to R, Q, 

■; 

bj and b 2 » in these orders, use addresses 177U, 1775. 1776 and ITTft 


respectively. The contents of 177U tad 1775 after any FLIP 


•peraticc are respectively equal to (R) aad (Q) preceding that 


1 

1*4+90 

All 

n/u/% 
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operation. If a result is placed In both y and R, 
double extension of (R); otherwise it is. 


IV Contents of Registers 

Accept for b^ and b. 


the contents of every register is inter 


preted as a nunfcer of the fora q x 2P. q[ oecupies the first 28 
bits, p the last 8. Negative p's and q's are'expressed by corple 


ments, the first digit of both p and q being a sirn bit. The binary 
point of q follows the sign bit. Except for the special case 
p e. q =■ 0, q is restricted to the values 1 y q > i and p is re- 


<2 . For p ^2' an alarm print oocurs. 


stricted to the range 


-2 both p and q are set equal to xero 


Loading 


A loader routine is included in the FLIP system to transfer FLIP 


and such of its subroutines as are used, into ES. It uses ES cells 


00000 to 00006, OOOhO to 00121 and 011*77 to 01777. FLIP operations 


are of two-types, basic code operations and subroutine operations 


The coder must specify which of the latter he is using and the 


memory locations of the subroutines. Thess are specified by para 


meter words in consecutive cells starting in cell 00122. The first 


two octsl digits of each such word form the operation code. The 


last five octal dicits form the address of the first cell to be 


occupied by tlfe subroutine. A sero cell terminates the parameters. 
The loader is entered at cell 7^575 (or 1*0,000) and halts on 


completion* It then erlts to cell 00010. The constant pool and 


cells 00000, end 00001 are taken care of by the loader. The use 


of any co—and codes not specified to ■tee leader (except basic 
eoesaaads) or the use of no—anil eedea still unasslgned will 
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FLIP (revised IO/ 15 / 5 L) 

Alarm Print* 

If an oirt-of-ranr* or non-existent result occurs, FLIP 
print* out ALARM a&a&a xxxxxxxxxxxx yyyyyyyyyyyjr, where 
aaaaa is th* main rout in* address, 

xxxxxxxxxxxx i* (x) in octal J 

yyyyyyyyyyyy i* (y) in oonal . 


The 1102 



halt after the typeoutj hit the start 


the main routine. 


FII 




• # 
d 




button to coni 
Operations 

For most arithmetic operation* th* operation bit* are 
divided into U grcups 1 a * i^q, b * i^, e = ig£, and 

d •= i^g, i 27 • These function a* follow*t 
'0 An arithmetic peration 

1 A logical operation . 

fOO U*e (y), (x) as operands and store the result in 

(R) and (y). 

01 Use (R), (x) as operands ai^d store the result in 

(R) and (y). 

10 Use (y), (x) as operands and store th# result in 

(R) only. 

V 11 Use (y), x) ss operands, add th* result to (R) 

and stor th# result in (8) only. 

Us# {>) without chants in ths operation. 

» ' . 

Use —(x) in the operation instead of (x). 

Perform the add operation* 

Perform a special polynomial order, (see list foll*wing)j 

Perform the multiply operation 

.. 

Perform the divide operation 


0 X 


;-f. / 


•?t - -il¬ 


ls# >e^s -# 







(FLIP) (miMd 10/15/54) 


Raplaca Add 


Raplaca subtract 


Subtract 


Aceuaulata add and subtract 


Raplaca add a product 


Iaoramaat and Multiply 


PoaitlTa Polyuoalal 


Raplaca add a aojatira product 
Dacramant and Haga*ira Multiply 
Alta mating Palymoadal 


Raplaoa Multiply 
Multiply aad Transmit 
Multiply 

# '• V * •* 

Aoouaulata Multiply 
■agatlra raplaaa Multiply 
Magatiwa multiply^tad transmit 
■agatlaa Multiply 
Aac*mwl*ta aagatWa Multiply 


laplaoa Dlrida 
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31 

* r * ~>y» R 

32 

y - x R 

53 

R T-(yf x) -* R 

3b 

-y-x y»R 

35 

-Rr X y,R 

36 

-yj x R 

37 

R -(y- x) -9 R 

ho 

Counter b^ jump 

hh 

Y 

Counter bg jump - 


(FLIP) (rewlaed VBLfyfa) 

5 t I -> y« R Divide and transmit 

1 

y - x R Divide 

R r(jrf x) -* R Accumulate Divide 

-y-rx —> y,R % Negative replaoe Divide 

-Rrx —* y.R Negative Divide and transmit 

*yf x ~f R Negative Divide 

R -(y- x) -9 R Aocunulate negative divide 

I 

Counter bj Jump ^ If (counter b Q ) <*(x), add one to 

Counter bg Jump - J counter b^ and Jump to v. If not,set 

I counter b to tero and continue preaent 
•* V*. sequence. (R) ia unchanged. 

Votei The contenta of the counters are not floating numbers. 

Absolute Value Threahold Jump If | ("*^\ ^ |(R )\ jump to y, otherwise 

continue present sequence. (R) ia 

• 1 _ . . . 'a 

unchanged by operation. If x « -R 

‘ . _ ■ • j ' -1 

a Jump may oocur. 

Reveraa Abiolute Value Threahold Jump 

ir|(*)|t| (R)[ Jump to y, otherwiae 
continue present sequence. (R) ia 
unchanged by operation. If x % -R a 
jump may not occur. 

Fixed to Floating Call the last 6 bita of (y) and let 

. 


(x) ("35) 3 q# where 


i’i< 


1. Font the 


Motet (y) may not be aero. 
Floating to Fixed 


correctly normalised and packed repre¬ 
sentation of q x 2P in R. 


Take q* and p* fro* the floating nuaiber 
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(eoat) Pleating to Pixsd 
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in R. Talcs p fro* the last 8 bit* of 
(x). 8tor* q In y and R whsrs 

qn q f x 2P'"F 


B. Subroutine Opsratlona 
(ass ssparats pages for details) 

(basic code) 

(basic code) 
t ■ 

(basic code) 

Cenrert Plexanriter input data* 

(basic oode) 

(basic code) 

8quare Root 
(basio code) 


Print on Flexesrriter 


Punch Plexowriter Tape 

^ * 

Puash Cards 


Read Cards 


Cosine 


Tan" 1 x 


Cetan" 1 x- 


* 

Traee 


:V- V , ; ■ 




. 1 / V ;■ .... . . • . 
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Subroutine Specifications 


FLIP subroutines are coded to atari in cell 01000 and are modified by the 


aaaembly routine under oontrol of the FLIP leader routine. Bach aubroutine la 


aaaigned a comaand code number 


If the aubroutine ia assigned command nuaiber OP (octal), a parameter la 


2 ' OP. It haa $he formi 


placed in drua location 


where D.A. » Drum addreas of the aubroutine 


c number of oella oecuppied 


s number of cella modi flad 


II Input Information 


At the entry to the aubroutine. the temporariea oontain thia infometloBi 


Second Octal Digit of Command Code 


00006 


00007 


(0173M 


20000 20000 


20000 


Gasman d eode in l Bt two octal digita. 

56 bit axtanaion of exponent from (00005) 

* 

56 bit extenelon of exponent from (00006) 

Execution addreaaea x and y in the u and ▼ position* 
36 bit axtenaion of exponent frmm (00005) 

Comnand code in last two oatal digits. 


00010 


00011 


10000 


If Any argument was aero, it haa bean trana formed to 000000000800 
(••tnl) with tha exponent 777777777600 (eetal). 
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FLIP 
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MI Exit Inform*tl on 


Subroutine exits ire to 01607, 01721, 01736, 01735 or 7oO'.5* 

a. Exit et 01.C7. Place zero inland ro to 01731; (e^e below) 

b. Exit at 01721. Ncr.ralize, tort, pack end store. In this case the subroutine 
should leave: 

q © in Cl0o5 
v @ in 0C010 

'.There the desired result is q • 2^. q and p nay be. any possible 3^ bit 
nubera. The routi-w will n^r alite, test, rack int' P, and *o to 0173- 1 2 .. 

c. Exit at 01736, 0173E or 01737 

/ 

(see table above) 

(exits to trace if used) 


C1731. 

11 20000 [00006] 

STUB 3ESH.T 

C1735 

1-3 10000 [01736] 

TRACE'S 

01736 

65 00000 [boocc] 

Exit 

01737 

37 00000 76065 

ALARV EXIT 

Notes 1 

’ /<•' ■ f ’ • % . ' », j 

i 


1. All references to exits abote must be in u nmodified orders. 

2. Double duty- subroutines (e.r. sine and cosine) are assigned two 

•« ‘ 

command codes and treated as two over Is : p : .tv subroutines. 

IV " Own Code" Subroutines 

Frequently occurring sybrouti-es can be coded as FLIP subroutines, before 
using; other FLIP cor.vnands 1: such subroutine;', it is necessary to transfer 
p (1^56) and such other info'^a^ion as must be saved to new locations. 
FLIP basic ~rders do not use cells 00715 to TX.037 or cell 00002. If the 
subroutine needs no■ modification or change of location, use 00 0-. 101 00000 
for its command code parameter. 


■ ... 
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1 ;;V 
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- . . ." ■ 1 111 . .— — 
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1 4-1 
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TLIP STORAGE 

LOCATIONS 


■ - 

Bobroutln# 

Code 

Jfur.bsr 

I«M 

lumber 

•t 

Words 

Drum 

Address 

BS 

Address 


Constants, Assembly 
Routine 

72 

77716 

Uo 


Basio Code 

193 

767^ g; 

1U77 


Subroutine Parameters; 

60 - 

766# || 

170 L 


Loader 

61 

76375 

01537 

50 

Square Root 

17 

76553 

(01000) 

77 

Trace 

26 

76521 

(01000) 

% 

Leg, n 

51 

76U62 

(01000) 

53 

PUICH 

56 

77262 

(01000) 

52 • • 

PRUT 

2 

77260 

(01000) 

- 

ALARM 

U 2 

76000 

(76000) 

U3 

Plexewrlter Input 
Conrersion 

58 

77352 

(01000) 

60 

Sine 

50 

77U5L 

(01000) 

61 

Ceeine 

2 

771*52 

(01000) 

70 

e x 

18 

76360 

(01000) 


Read in Test 

36 

76JU14 

76141* 


Process Traoe 

59 

77600 

00U7 

62 

Tan-l 

5U 

76300 

(01000) 

63 

■ 4{ • ; It 

Cetaa* 1 

2 

76356 

(01000) 

* * 

- - 

.*• 1 ' Y ' f ■ 

‘ 

% 

“ • v 

■ ' ’■ ■ ■' 

: - - 

*"■ ' •• ' J,' 

* > :• . ' • 

• ■ . 'jtj 

• fa \‘ 1 . • ■■ 

/ . •* • 

' ' ?• ’i . ,• 

- .A . / ^ ’ { ' 3 .' > 

;■ r v . ; 

■ • . • 

*» V " • tr ■ *.t • ; 

. fy • r 

■ ~ • 

• 
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Loader 


76575 

01537 

11 76655 

00000 

76576 

01540 

75 30061 01615 

76577 

01541 

11 

76600 

01542 

76600 

01542 

75 

30062 01544 

76601 

01543 

11 

77716 

00040 

76602 

01544 

11 

00122j 


76603 

OI545 

11 

OOOOJ; 

[OOQCh 

76604 

01546 

31 

00004 

00017 

76605 

01547 

11 

20000 

oooc 5 

76606 

01550 

55 

00003 

00026 

76607 

01551 

11 

01621 

10000 

76610 . 

01552 

53 

00003 

01554 

76611 

0155? 

75 

30002 

01555 

76612 

01554 

11 

r en 

0 

0 

00006 

76613 

01555 

15 

00006 01576 

76614 

01556 

16 

00004 01576 

76615 

01557 

55 

00006 

00c 11 

76616 

01560 

31 00005 

00071 

76617 

01561 

52 

01621 00122 

76620 

01562 

47 01563 01601 

76621 

01563 

55 00006 

00014 

76622 

01564 

11 

01577 

20000 

76623 * 

01565 

52 

01621 

01575 

76624 

01566 

16 00007 01571 

76625 

01507 

55 

00007 

00025 

76626 

V* ♦" V * . *• 

01570 

16 

1 ■ 

10000 

01572 

76627 

01571 

y„ • 

16 00004 [30000] 


Preset F, 


Transfer loader to ES 


Transfer Constants and Assembly to ES 

Requisition parameter 

F i -* \ 

(Pi) -* & (t^) 

^ * op —* © (t 3 ) 

Mask —^ q 

Set orderi "requisition subroutine parameters 

I 

Requisition Subroutine Parametes Pj% ?2 

Set orderi "Transfer subroutine to ES'*- 


Place parameter f;r assembly routine 


Is this tiv termination flae? 


Set repeat order: "Transfer subroutine to ES" 








v 

. .V; Vr' ' 






t 


SO t T 


1 V* 







76630 

76631 

76632 

76633 

76634 

76635 

76636 

76637 

76640 

76641 

76642 

76643 

76644 

76645 

76646 

76647 

76650 

76651 

76652 

76653 

76654 
76655. 

76656 

76657 
76660 


CON SOI. I OAT CO VULTCC AIRCRAFT 
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FORATION 


p»aE 
R F POP 
MODEl 

date 


01572- 

01573 

01574 


15 00005 fooOOO^ 
21 01544 00073 
21 01561 00074 


Step to next subroutine 

r 


01575 [77 77J77 77777"] 
01576 11[00000 00006] 
01577 75 30000 01544 

01600 00 00000 00000 
01601 11 01620 01774 

'01602 11 01617 00001 
01603 11 01622 00002 
01604 37 00101 00100 
01605 75 10003 01607 
01606 11 00040 01775 
01607 75 30275 01774 
01610 11 76755 01477 
01611 75 30222 01776 ‘ 

01612 11 77027 01551 
OI613 75 30236 01776 

01614 11 77014 01536 

01615 75 30074 01542 

01616 11 76661 01704 
01617 45 00Q00 01624 

01620 56 00000 00010 
01621 00 00177 00000, 
01622 45 00000 76761 


Transfer Subroutine to ES 

Prototype order for 01575 
"Parameter for zero subroutine" 
ire'set exifl of Loader 
Preset Fg 
obsolete order 
Modify subroutines 

Clear FLIP temporaries 

Transfer in Basic FLIP 


Obsolete 


Transfer Subroutine parameters to 



Exit order for Loader 
Extractor 
obsolete order 



12 

u ' ZM-ii9C • 
All 

ia'i5/5L 
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76661 

01704 

01 01731 00000 

42 

76662 

01705 

00 00003 00003 


76665 

01706 

72 77352 05000 

43 

7666 k 

01707 

00 77023 00003 

t 

76665 

01710 

01 01731 00000 

lu 

76666 

01711 

00 00003 00003 

» 

1 

76667 

01712 

01 01731 00000 

45 

76670 

01713 

00 00003 00003 


76671 

01714 

01 01731 00000 

46 

76672 

01715 

00 00003 77007 


76673 

01716 

01 01731 00000 

47 

7667 k 

01717 

00 77007 00003 


' 76675 

01720 

21 76353 02000 

50 

76676 

01721 

00 00005 77026 


76677 

01722 

24 76360 00500 

51 

76700 

01723 

00 00003 00003 


76701 

01724 

02 77450 00200 

58 

76702 

01725 

00 00003 77011 

, ;v '■ 

76703 

01726 

70 77262 03400 

53 

76704 

01727 

00 77011 00003 


76705 

01730 

37 76462 02400 

54 

76706 

01731 

00 00003 77012 


76707 

01732 

01 01731 00000 

55 

76710 

01733 

00 77012 00003 

. . . 

76711 

01734 

01 01731 00000 

56 

76712 

01735 

00 00003 77013 

. . >•;£** 

''.. r -T 

76715 

01736 

v f r v 

01 01731 00000 

57 

76714 

01737 

00 77013 00003 

• - V r ’ • v . * > \ 


76713 

01740 

61 77454 04700 


- T* * • - ' V ' ■ 



. 









f h>m >»o n > A r 


CONSOLIDATED VULTEE AIRCRAFT CORPORATION 
UN DltGO Division 






76716 

017*1 

00 00003 76777 

76717 

017*2 

oa 77*52 ooeoo 

76720 

017*3 

00 76777 00003 

76721 

017** 

35 76300 03600 

76722 

017*5 

00 00003 77000 

76723 

017*6 

02 76356 00200 

7672k 

017*7 

00 77000 00003 

76725 

01750 

01 01731 00000 

76726 

01751 

00 00003 77001 

76727 

01752 

01 01731 00000 

76730 

01753 

00 77001 00003 

76731 

0175* 

01 01731 00000 

76732 

01755 

00 00003 77002 

76733 

01756 

01 01731 00000 

7673* 

01757 

00 77002 00003- 

76735 

01760 
. • 

51 76360 01200 

76736 

01761 

00 00003 77003 

76737 

01762 

01 01731 00000 

767*0 

01763 

00 77003 00003 

767*1 

0176* 

01 01731 00000 

767*2 

01765 

00 00003 7700* 

767*3 

01766 

01 01731 00000 

767** 

01767 

00 7700* 00003 

767*5 

01770 

01 01731 00000 

767*6 

01771 

00 00003 77005 

767*7 

01772 

01 01731 00000 

76750 

01773 

00 77005 00003 

76751 

0177* 

01 01731 00000 

76732 

01773 

00 00003 77006 

76753 

01776 

38 76561 05100 


Afm M DOM rms 


61 

62 

63 



65 


66 


67. 


70 


71 


72 


73 

. * 

a ' ;^ ■ ; . •**.' 2 ?r tv 

> ■ ' , ■’ 

7h 

1: • . ' 

/ 



taoe 1U 

REPORT NO 

MOOEL 

OATE 



. -k.zr . 






CONSOLIDATED VULTEC AIRCRAFT CORPORATION 
SAN DIEGO DIVISION -« 


Basie Code 


PA jl 
Rt p OR 
MODEL 
DATE 


76755 

01477 

27 00005 01772 

76756 

01500 

44 01501 01505 

76757 » 

01501 

16 01712 0173* 

76760 

01502 

44 01503 01666 

76761 

01503 

11 0177* 00007 

76762 

01504 

45 00000 01666 

76763 

01505 

44 OI665 01666 

76764 

01506 

11 OI5II 20000 

76765 

01507 

36 00012 00012 

76766 

01510 

46 01607 01726 

76767 

01511 

00 00000 00033 

76770 

01512 

44 01514 01513 

76771 

01513 

4* 01516 01515 

76772 

01514 

*4 01520 01517 

76773 

01515 

44 01522 01521 

76774 . 

01516 

44 01524 01523 

76775 

01517 

44 01526 01525 

76776 

01520 

44 OI53O 01527 

76777 

?1521 

44 01737 01737 

77000 

01522 

44 01737 01737 

77001 

01523 

4* 01737 01737 

77002 

01524 

44 01737 01737 

e 

77003 

01525 

44 01737 01737 

* • • ■ V 

77004 

01526 

44 01737 01737 

77005 

01527 

44 01737 01737 

77006 

01530 

44 01737 01737 

77007 

01531 

44 01737 01737 

r .. . ■*. /."“• * • •’ '^V v *•’«. «&- •' 

77010 

- 01532 

*4 01535 0153* 



-X -► X 

Branch om bg 
Set to etore in R 
Branch on b^ 



Jump 

3ranch rn 

27 —> a 

p -* R (if P 7 27 j P-72 -* R) 

OiR 

27 

SORTING 
7RIFFLETREE' 
for N OH-ARITHMETIC 
OR DIRS 



no ZM-li9C 
All 

10 / 15 / 5*4 


-< 

• 1 - ’ 







CONSOLIDATED VULTEC AIRCRAFT CORPORATION 
•AN OICSO DIVISION 


77011 

01333 

44 01737 01737 



77012 

01334 

44 01737 01737 



77013 

01333 

44 01737 01737 

. 


77014 

01536 

44 01512 01337 



77013 

01537 

44 01546 01340 



77016 

01340 

44 01542 01541 



77017 

01341 

44 01343 01343 



77020 

01542 

44 01551 01344 



770» 

01543 

44 01371 01555 


4 

77022 

01544 

44 01574 01360 



77023 

OI 543 

44 01737 01531 


•* r ' 

77024 

01546 

44 01532 01347 



77023 

01547 

44 01333 01550 



77026 

01530 

44 01605 01737- 



77027 

01551 

11 00011 00010 

■cT —* «cX 

| L2 commsnd 

77030 

01352 

45 00000 01721 

Jump to Nonnslits 


77031 

01553 

21 01776 00074 

V»-»h.* UfL 

command 

77032 

01354 

36 00003 20000 

*!-(*) —7 * 

■ 

77033 

01355 

48 00074 01602 

1 » b x-(*) Jump 

to "jump" 

77034 

01356 

11 00040 01776 

0 —7 bj 


77033 

01557 

43 00000 01603 

jump ts "no jump" 


77036 

01560 

27 00005 0177* 

-* —5> x [ UU 

command 

77037 

01561 

81 01777 00074 

bg*l —7 4^4 


77040 

01568 

36 00005 20000 

b 2 *(x) —^ R 


77041 

01563 

42 00074 01608 

li bg-(*) jump to "jump" 

77048 

01364 

11 00040 01777 

0 —7 b 2 


77043 

01365 

43 00000 01603 

jump to "no jump" 


77044 

01366 

16 01734 01736 ' 

| 


77043 

01367 

43 00000 01733 



77046 

01370 

45 00000 01735 

J 



PAGE 

REPORT NO 
MODEL 

DATE 12/1V5U 











ZM-L90 


consolidated vultec aircraft corporation 

SAN Olt&O OlVISlON _ 


77047 
^7050 

77051 

77052 

77053 

77054 

77055 

77056 

77057 

77060 

77061 

77062 

77063 

77064 

77065 

77066 

77067 

77070 

77071 

77072 

77073 

77074 

77075 

77076 

77077 

77100 

77101 
p- 77102 
! 77103 

; 77104 


t> 


01571 16 01734 00012 J 

01572 16 01736 01734 > 

C1573 16 00012 01736 / 
01574 23 20000 00011 
01575 46 01602 01576 
01576 47 01603 01577 
01577 12 00005 00005 
01600 12 00006 20000 . 
01601 42 00005 01603 

01602 16 01734 01736 

01603 11 01774 20000 

01604 45 0Q000 01735 

01605 23 20000 00011 
01606 42 00056 01611 
01607 11 00040 20000 

01610 45 00000 01734 
01611 46 01737 01612 

01612 13 20000 20000 
01613 35 01773 01614 

01614 54 00006 00110 

01615 45 00000 01734 
01616 11 00006 00007 
01617 31 01774 00034 

01620 11 20000 00011 
01621 54 00011 00054 
01622 11 01774 00006 
01623 45 00000 01744 
01624 16 00000 01736 

01625 11 20000 01774 

' r - ' 

01626 11 10000 01775 


P A G t. 
REPORT 
MODEL 
DATF. 


Interchange y *nd Exit \ Ul command 


■ cX-scY . ^ P |ii t - command 
It' bcY > eel y jump to 1602 
If ecX 7 «cY^ jump t0 


\ 51 coi 


remand 


1 | —^ X 

[Y|-^R 

If |x | ^ Y | Jump to 1603 

Chang* exit 

Exit 

P - P 1 —^ R 
Jump to 1611 
Clear answer 
Exit 

IX p - p* < 0, jump AIARVi 
p* - p -> R 

S*t order* o • 2^*^ —y q 

q . 2P"P’-* q 

Exit 

Y -y B i"p" urdera 



unpack (?) —> Y, ocY 


Jump to Multiply 

• - 

Store exit 
Store R 

Store Q X* 


ENTER 


17 

NO 

All 

10/15/56 










OWM MO I T 1 -p-r 


CONSOLIDATED VULTEE AIRCRAFT CORFOftATION 

• AN OlCSO DIVISION 


77105 

01627 

31 00000 00017 

L 77106 

OI630 

35 01766 01631 

77107 

OI631 

11[00006]10000 

77110 

OI632 

75 30004 01634 

77111 

01633 

51 01761 00004 

77112 

OI634 

31 00007 00012 

77113' 

fiiife 

72 00005 01777 

77114 

oi63f 

54 20000 00001 

77115 

01637 

72 00006 01776 

77116 

01640 

^3 61765 10000 

77117 

01641 

16 10000 01652 

77120 

01642 

55 10000 00017 

77121 - 

01643 

11 10000 00013 

£ 77122 

01644 

54 20000 00075 

77123 

01645 

16 20000 01734 

77124 

01646 

16 20000 00013 

77125 

1 

01647 

16 20000 01655 

77126 

01650 

75 10003 01652 

77127 

.01651 

11 00040 00005 

77130 

01652 

[21 00005 0000^ 

77131 

01653 

47 01655 01654 

77132 

01654 

11 01770 00005 

; \ 77133 

01655 

£l 00006 0000<J 

!77134 

OI656 

47 01660 01657 

! 77135 

01657 

11 01770 00006 

ej77136 

01660 

11 01774 20000 

< 77137 

'2J' 

01661 

47 OI663 01662 

1 77140 

* 

* 

01662 

, 11 01770 01774 

( 77141 

01663 

55 00004 00011 

i • ' ;| 

' . L 


- 

d ; : v: 


18 

ft F. POHt NO. Z^.W 

MODEL All 

DATE 10/l5/> 


Instruction 


OP —* b^ indicators t^i 

t>2 indicators —f t^j iddressea -—> t- 


Modify Basio Addresses 


Put Execution Addres es into t^ 
Preset Pickup and Store orders 


I, I and B 


Pickup (x) * 
Otx 

2-155 . x 

• f 

Pickup (y) « 

Oiy 

2-!55 _ 

' * jp. * . * a.; .• 

°'K 

2-155 _ + 

J Branch on C 




• v .: •.' i*.».. t 






CONSOLIDATED VULTIt AIUCRAFT CORPORATION 
• AN Dltso OiVISrON 


77142 

01664 

44 

*01477 01500 

^ ; 7”143 

01665 

11 

01774 00006 

77144 

01666 

31 

00006 OOO 34 ' 

77145 

01667 

11 

20000 00011 

^7146 

01670 

54 

00011 00054 , 

77147 

01671 

31 

00005 00034 " 

77150 

01672 

11 

20000 00010 1 

77151 

01673 

54 

00010 00054 „ 

77152 

01674 

55 

00004 00041 * 

77153 

01675 

44 

01536 01676 

77154 

OI676 

44 

01677 01700 

■77155 

01677 

44 

01740 01744 

77156 

01700 

44 

0l6l6 01701 _ 

77157 

01701 

23 

20000 00011 

C 77160 

01702 

46 

01703 01710 

- 77161 

01703 

11 

00005 00014 

77162 

01704 

11 

00006 00005 

77163 

01705 

11 

00014 00006 

77164 

01706 

11 

00011 00010 

77165 

P1707 

13 

20000 20000 

77166 

01710 

42 00045 01712 

77167 

01711 

11 

00045 20000 

77170 

01712 

13 

20000 20000 

77171 

01713 

35 01767 01714 

• 77172 

01714 

54 00006 00107 

77173 

01715 

54 

00005 00107 

77174 

01716 

35 00006 00005 

77175 

01717 

21 

00010 00074 

i . 

• 77176 

01720 

45 00000 01750 

77177 

01721 

11 

00040 00012 








“^200 

0172? 

5k 60005 •07032 

:,* 72 ui 

01725 

7k 200U0.00012 

77202 

01 "'2k 

11 20000 00005 

7720J 

01^25 

k^ 00000 01506 

7720k 

01726 

23 00010 00012 

77205 

01727 

k2 01771 01607 *5 

77206 

01750 

k2 01770 01732 \ 

77207 

01751 

k5 00000 01757 / 

77210 

01752 

11 01772 10000 ') 

77211 

01735 

53 00005 00010 f 

77212 

0175k 

11 20000 [00000J 

77215 

01735 

k5 10000[01736J 

7721k 

01756. 

k5 00000[OOOOO] 

77215 

01^57 

k5 00000 760k5 


2- 7 X —±'A 

X * 2? H. , 2'’ - p 

atore X 

« 

iUJTtO 

%* 

*cX - p —^ scX 

Check tite of «eX 

peck answer in P 

■r'- 

Store reault 
Autor oni *-or ? 

Exit 

Alarm Exit 


77216 

0l7k0 

ll OOOkl 20000 

2-ecx --*» acx 

L 

J 

|Divide 

77217 

Ol7kl 

36 00010 00010 


77220 

017k2 

31 00066 000k2 

"s 

J 

- 

77221 

017U3 

73 00005 00005 

/ 1 . x 

j\ cr- 


77222 

0l7kk 

71 00006 00005 


Multiply 

77223 

017k 3 

5k 20000 000k3 

y x • y > x 

* *’ 1 

7722k 

017k6 

11 20000 00005 

j 

• 

7722? 

017k 7 

21 OOdO 00011 

ec X ♦ ecY — > 

acT 

7^226 

017?0 

11 00007 20000 

V If B~ 0 iuirtp 

to 1721 

77227 

'01751 

k7 01752 01721 

t 

t . 


77230 

01752 

11 20000 00006 

! 


77231 

01753 

31 20000 00034 

V Onpeck B - —ft, 

ecT 

77232 

0175k 

11 20000 00011 

1 


77253 

01755 

5k 00011 0005k 

. V *. J. V. V* ", ; - 

J 


7723k 

01756 

11 00010 20000 

acX * 






CONSOLIDATED VULtEt AIRCRAFT CORPORATION , 

san a roo oiv»s.<>n 1 A ^f- di 

- _ E Pv'Ht 

NOC't. t 

1 > A T t. 1 


77235 

01757 

11 

00040 

00007 


0 -* 3 



7723^ 

01760 

45 00000 

01701 


Jurap to ADD 


77237 

01761 

00 

77000 

00000 


) 


- 

77240 

01762 

00 

00200 

02000 

j 




77241 

01763 

00 

00400 

04000 


y Extractors 


< 

77242 

01764 

•00 

00177 

71777 





77243 

01765 

00 

00400' 00000 

J 


jpj 


77244 

01766 

10 

111 1 ! 

10000 


Prototype 

order .for 

01631 

77245 

01767 

54 

00006 

00107 


j 

Prototype ' 

order for 

OI 7 U 4 

77246 

3 

017-0 

00 

06000 

00200 

h 

i. 



7724J 

01771 

77 

77777 

77600 


1 - 2 7 



77250 

01772 

77 

77777 

77400 

A 

t 

(2 8 - 1) 



77251 

01773 

54 

00006 

00110 


Prototype 

order for 

0l6lii 


! 


V. 



2“ X 

11 

r 1: /SU ■ 








CONSOL IO A TfcO VUl, 1 Ef AIRCR Af T CORPORA T ION 
SAN OitOO DIVISION 


Alarm Print • 


76000 

76000 

45 00000 30000 

76023 

76023 

56 00000 76000 

76001 

76002 

76001 

45 00000 76024 

37 76030 76025 

76024 

76024 

16 76031 76030 


76025 

76025 

11 20000 00004 

76003 

76003 

31 76000 00017 

76026 

76026 

54 20000 00044 

760C* 

76004 

15 20000 76005 

76027 

76027 

11 20000 00005 

76005 

76003 

11 30000 76OOO 

0 

K\ 

O 

£ 

76030 

43 00000 30000 

76006 

0 

76006 

11 76043 00006 

76031 

76051 

00 00000 76006 

76007 

76007 

55 76042 00006 

76032 

76032 

U 00057 00006 

76010 

76010 

61 00000 76042 

76033 

76033 

61 00000 00044 

76011 

76011 

41 00006 76007 

76034 

76034 

55 10000 00003 

76012 

76012 

13 00074 20000 • 

76035 

76035 

51 00067 20000 

76015 

76013 

32 76000 00025 

, 76036 

76036 

35 00042 76037 

7601V 

76014 

11 20000 10000 

76037 

76037 

00 00000 00000 

76015 

76015. 

11 00044 00006 

76040 

76040 

41 00006 76034 

76016 

76016 

57 76041.76053 

76041 

76041 

45 00000 50000 

76017 

76017 

n 00005 10000 

76042 

76042 

45 30113 01207 

s 

76020 

76020 

37 76041 76032 

76043 

7604 3 

00 00000 00005 

76021 

76021 

11 00004 >10000 

76044 

76044 

00 00000 00000 

76022 

76022 

37 76041 76052 


•a 


•FLIP 

ALARM ADDITI'l 

' 



76045 

76045 

15 00013 76047 *) 







h Sat Ordara 


76046 

76046 

16 00013 76050 ) 

v '■ ■ 


* i. * T * * ■ v 

76047 

76047 

31[50000)00044 

(x)-pL 

■■ . t. 

•V . * » * * • . 

76050 

76050 

>V ,* - .5;- 

27 20000[5000q) 

(y)-M 

v " ’ * 

■ 

76051 

76051 

16 01736 76000 ~ 

v * ' • -c ' Y ' u V - •• t-r:-'' 

l" Enter Alarm 

’ -"••• ■ r %;*/ >. 

76052 

76052 

43 00000 76001 J 

) 

' \; 



•For explanation of ordarf aaa Raport ZM-691 


22 

ZM-i^C 

iz/ii. n. 


i 

*> 








< ONSOl 'WHO VULTEE AIRCRAFT CORPORATION 
'S«>* D 1 E GO O'VltlON 


PAi.H 

Nfc 

MODI L 
DATE 


INPi'T STP CHECK for FLIP 


76414 

761*11* 

57 00000 00000 

Halt 

76a 1*5 

761*13 [00 00000 00000 ] 

praetored aun 

76L16 

761*16 

11 40000 00000 

eet 

761*17 

761*17 

23 10000 10000 

clear A,Q 

761*20 

761*20 

75 22000 76422 ^ 

r SU¥ 

761*21 

761*21 

32 76000 00000 J 

l 


761*22 

761*22 

36 76415 10000 -) 


• 

761*23 

761*23 

23 10000 76415 '■ 

r Cheok aura 

761*21+ 

761*21* 

47 76427 76425 
- > 

1 

- ", 

76U25 

761*26 

761*23 

761*26 

75 10012 76451 ] 

61 00000 76434 . 

) 

V Print "FLIP OK" 

761*27 

761*30 

761*27 

761*30 

75 10012 76414 

61 00000 76446 

) ' . 

^ Print "IT 00" 

761*51 

761*31 

16 76433 40000 

aet order 

761*32’ 

761*32 

36 00000 40000 

Halt 

76433 

76453 

00 00000. 76573 

a idresa 

76»*3i* 

761 * 31 . 

00 00000 00045 

VV '*■'»* *' jf • • 

FLKJOWRITER 

761*33 

761*35 

X' 00000 00047 


. . : \.v 

761*56 

761*56 

00 00000 00026 


characters 

1 

761*37 

761*37 

00 00000 00011 

N 


761*1*0 

76440 

00 00000 00014 

• 

• - * JV.' 

761*1*1 

76441 

00 00000 00015 

✓ 

. 

. / .. - 

' • • • • *-c '. t' r • 't? 

761*1*2 

76442 

00 00000 00004 


' - 

761*1*3 

76443 

00 00000 00003 

■< • 






^ ‘ " ^ ’ rS '' ■ '■ V' ' ' • 

•'.it, <*. " _ •»)p . . , '■ <*..*• 

76M*i* 

76444 

00 00000 00036 


' ■' 

, ?, . ‘4 

jf ' ■ 

'• 

1 ' . r • *\ 

\ ■ ■ ‘ '■ *-. V 4 i 

■ t v ’•*•* '-'H .• '*■*•'• ,* ■ 

*• ,v •' ; • ;■ . v : • ; 

• ' J •• i . .;•:•••• - • ' V/ ? ’ • 

•• ■ 


. v'- ' 

• • • : /•« 

.V- 

• • 


. : CL'V * — 

. 

V ■.'i ' •- 

• yV - ' ' \ ■■ 

."III h \ \ 

- ■ . . -' 

•' Hr r ■ -V, 

• 






23- 

’rw-^oo 

12/lV5l+ 


•,vH 











N > .f I • ^f 


CONSOLIDATED VULTEE AIRCRAFT CORPORATION 
SAN OllGO DIVISION 


PAGE 2Li 

HEP- HT N. ZM-Ji90 

M.lfii l 

C'A T I 12/1i*/2* 



76445 76445 00 00000 OOO 57 

76446 76446 00 00000 000*0 

7641*7 76447 00 00000 00047 

76450 76450 00 00000 00002 

76451 76451 00 00000 00006 

76452 76452 00 00000 0000J 

76455 76455 00 00000 00004 

76454 76454 00 00000 00015 

76455 76455 00 00000 00005 

76456 76456 00 00000 00002 

76457 76457 00 00000 00057 

40000 40000 45 00000 76416 ENTRANCE 










^ »UU!kK T CORPORATION (.^ , 

S AN O tijO tilV 1% N 

- Mi- P. 

mc':.' 

D^:t 

i 

CONSTANTS and! ASS*?.-PLY R'TTIITS « 


77716 ' 

700*0 

00 

ooooo 00000 

77747 

X 071 

X 77777 OXX 

77717 

X >041 

X 

OXX 00002 

7775 b 

0 X 72 

X OOOX 77777 

67720 

00042 

61 

00 X 0 00045 

■ 1 

p 751 

0 X 73 

X XOd OOOX 


xx:i *3 

X 

A, • 5 1 j 

ooooo 00 x 3 

HSU 

0 x 74 

X 00 X 0 0 X 01 

' 77 , t 2 n 

.»*-Mj 4 1 * 

00 

OOOOC 00004 

77753 

0 X 75 

X XXI 00 X 1 

" 7772 ? 

X 045 

X 

OOOUC 0 X 37 

77754 

. 0 x 76 

X 07777 .07777 

^7 ; 2 <' 

0.046 

X 

ooooc 00052 

77755 

. 0 X 77 

x ooox xno 

77725 

C- 004 ? 

X 

0 X 00 0 X 74 

77756 

00100 

11 00122 20000 

77726 

00030 

X 

JOOOO 0 x 70 

77757 

00101 

47 X 102 OXX 

77 ■’27 

00031 

X 

000 X 00064 

77760 

X 102 

73 X 073 00005 

777 J 0 

• 00052 

X 

ooooo 00062 

7 ff 6 l 

00103 

16 20000 03112 

77731 

00033 

00 

0 X 00 00066 

77762 

X 104 

36 00121 00006 

77732 

OUOS 4 

X 

ooooo 0 x 72 

77763 

00105 

41 00 x 5 X 110 

77733 

0 x 55 

X 

OXX 00060 

77764 

00106 

21 XIX X 073 

, 773 * 

00056 

X 

00 X 0 0 x 33 

77765 

00107 

45 OOOX XIX 

4 

77733 

OC 057 

X 

OOOX 00013 

* 77766 

OOllO 

16-00112 00116 

77736 

0006*0 

X 

OOOX 00012 

77767 

00111 

11 00040 XX? 

77737 

00061 

X 

ooooc 00056 

77770 

00112 

21 00 X 7 XOX 

77740 

00062 

31 10375 52421 

77771 

00113 

55 200 GC 0 X 33 

777 U 1 

00063 

31*46314 63146 

77772 

0 CU 4 

' 

51-00075 10 X 0 

77742 

00 Qp 4 

X OOOOO ' 0 X 77 

77773 

00115 

71 100 X 00006 

77743 

00065 

21 6764 5 - 2417 -; 

77774 

- XU 6 

35 00 X 7 ooox 

• y ■ 

77744 

00066 

X 

OOOX OOOX' 

77775 

• X 117 

21 00112 0 X 74 

77745 

OOO 67 

* 

X 

ooooo 00x7 

77776 

* 

X 120 

45 ooox 00105 

77746 

00070 

57 77777 77777 

77777 

00121 

*■ - 7 ? 'If*' ’ • i * 6 " 

X OXX oiox 

*For 

arplar,* tion of ordars tea Raport 


• 





■ i;.v • 


vV - * < - *’ 

r -n. y ;v, *1 ^ V ” 

■.* r, A ' -■* J - ' • - 


25 

jRrT - zy*x90 

E; 

I2/L';/5L 



» 




A'.A.l'SIS t-ONSJU. -*TEi V 'L 

C. . J . Swi rt 

*< f i ►ID B V S. L. Pollack 

Rf vlSf’J PY 


E *1P Ri»t T CiDRPORA’lON 

fG r> *. n 


*»ac.e ii ^-1 

REPORT S,> ZM-m9C 

model All 

DATE 11 / 15 / 5 L 


Command Code 1 
Number of Cellai 


FLIP 

Flexowriter Input Conversion Routine 

U3 

58 


• * - 


I 


I 


,J *. sc ^EU?n 

Thia command conT/erts a twr-wcrd input representation of a number to the 
normalired FLIP form and stores the result in y, but not in R» The two 

words are (x) and (c -t- l). When taken 6 bita at a time they are 12 flexowriter 

* * • • • ' „ 

character coder. If the number represented i»i - 


N * q’ * 10 p * , 0.1 q* <. 1 


these flexowriter characters arei - 


123 U 56769 10 11 12 

^q-qqqqqqtp p 


. • . 

The decimal point (not present) precedes character number 2. Tha si??i poaitions 

■ a • ' - • 

are considered plus unle-. a occup ied by a minus sipi (octal 50* The twelfth 
dipit ia immaterial and will usually ba a carriape return. 

• . t* 

If the number represented exceeds 2^" 7 in absolute magnitude, or if anv 
dirit q or p ia not a fletowriter numerical diplt, an alarm halt will occur. 


., i 




. v • - 

*•-. " .• ■ v t • 
• , t v... 




/ 


j. •< i* ', W ~ - 
'' •' ? •. ■ 


►- 1 . : t * 

lIlV* •• 


b- - . • V • 


- K 


. -M 




. 

Yii 


. V * 


• . ■ - , ** -■ 

•• ' - ... 

, J •- * * ' • • • • . , V‘/ : 

’ *. 

- ‘ J. *»’ - ■' , . * ' • It- ■ - • ’ .-’v ►' ■ •f*' - " ’ 

' ; | ' ■ • ' /• . ... 

i . f . 4A-S • A; •• ‘ ^.<:v •- t \ jA ; . ' . ' A ' 

...,___ . -- —-- 


A*: 

L- •• 


a.- 


■*a 

f-1» 


■\ V>»/- | 













Flow Chart 


(%*•) V 


>o k 


S«♦ ovdr*: 

-'h *J.e 


A *, K l YS»S 


r.r>\«,OLinATfcU .ULTEE aiftcrai-t CORPORATION 

PA4f 4^-2 

I’Ht.PARIr B» C • 

J. 

C.^-} Af %.»N DiFOO X> V 'S -N 

BF PORT NO ZM 

w F K t C! B * S . 

L. 

Pol In C ic 

MODE l All 

*r v »st P BY 



DATE ll/l 5 / 5 JU 


' 1 Jr t,T 

' l 

1 

. LT.v '..tj: 

1 

"> «* w:i ’4 

*«’'«■ «,«/*„ 

1 V -7 

r.J^t ft * 
■1 eAtr" 























77352 

77553 

77354 

7-355 

77356 

77357 
77360 
7 7361 
7T562 
77363 
7736k 

77365 

77366 

77367 

77370 

77371 

77372 
77573 
7737k 
77575 

77376 

77377 

77400 

77401 

77402 

77403 

77404 

77405 

77406 

77407 


CONSOLIDATED VULTEE AiRCRAPT CORPORATION 
SAN Dll'ao Oivts-ON 

if 3 ITTFT CCTTVERSIO* StJBS'tfTLVK 
01000 16 01042 01025 set switch I. 


01001 15 00013 01003 
01002 16 00013 01064 

010C3 11 30000 00004 

01004 11 01051 00012 

01005 11 01051 00005 
01006 11 01046 C1024 

01007 37 01041 01052 
01010 43 00061 01012 

01011 23 01024 01050 

01012 23 00005 00005 
01013 37 01041 01032 

01014 75 20013 76045 

01015 43 00045 01016 
01016 51 00064 00006 

01017 11 00060 00007 
01020 23 00007 00006 J 
01021 71 00060 00005 

01022 35 00007 00005 
01023 41 00003 01013 


set orders 

(x) —y x 
6 —y tally 2 

6 -^ tally 1 

set order y N 

1st FLEX difrit (sign) 
Test for minus sign 
. charge order: 4- 'h. 

0 —> k,\. 

one di.fl t —y k 


f.r-f 

C dc ) 


> binary dirit —9 J, ' 


10 \ 


Index tally 2 


01024 [13 00005 300007 l h . ? . 

01025 37 01025 30000 K 

01026 54 00032 00037 

01027 73 01070 00032 

01030 75 3001o 00014 

01031 11 01052 0G014 j 

• • • : ■. • '• ■ V- 

01032 41 00012 01037 Index tally 2 (Digit Subrm 

;* •. ... # . ,'A • 

*rv-. v. ; 


A/'2? 1 —> A 

K/ *231 ^ 10 ? -*? h/ 

enter temporary orders 


01033 11 01003 20000 
01034 35 00073 01035 


01035 11 30000 00004 


(xvl) 


AA' 


.-.‘ M ; 


•« ZV-al90 

v iuf.f 

12/1L/5L 





RM H.) C ’ 

1* 


CONSOLIDATED VULTEE AIRCRAFT CORPORATION 

SAN DIEGO DIVISION 


77*10 

01036 

11 0006? 00012 

7 tally 2 


77*11 

01037 

55 0000* 00006 

•hift one flex dipit 

% 

77*12 

010*0 

51 0006* 20000 

x tract to A 


77*13 

010*1 

*5 00000 30000 

exit 

W 

77*1* 

010*2 

00 00000 010*3 

con* tant 


77*15 

010*3 

11 0007* 00003 

1 ->tally 1 


77*16 

V 

010** 

. '1m -a 

U 010*7 0102* 

»et order - ‘?l -*r d.e. 

p f 

77*17 

010*5 

*5 00000 01007 

Juaip 

%!p 

77*20 

010*6 

13 00005 00032 

► ' 


77*21 

010^7 

13 00005 00033 ( 

. 


77*22 

01050 

02 00000 00000 

r eon*tant* 


77*23 

01051 

00 00000 00006 j 

, 


77*2* 

0001* 

16 01736 00002 

■tore exit addre** 


77*25 

00013 

1* *2003 20031 "■ 

1 

) 


77*26 

00016 

11 20000 00032 

> FIXED —9 FLCATIX0 

0 

77*27 

00017 

fik 30003 10032 

N ■? / 0 


77*30 

00020 

21 00033 0007* 

d.e. 4* 1- d.e. 


77*31 

00021 

*6 00017J00022 * 

Oid.e. 


77*32 

00022 

[**3 000*0 00026 

Oid.e. 


77*33 

00023 

1* 20003 10032 

10M —^ I 


77*3* 

0002* 

23 00053 0007* 

d.A. ** 1 d.e. 


77*35 

00025 

*5 00000 00022 

jump 


77*36 . 

00026 

ll 00032 00000 

■ tore 

t ; 1 

77*37 

• 

00027 

16 00002 01736 "] 

• 

1 


77**0 

00030 

*5 00000 01735 

iff 

|;> : 

77** 1 

00031 

2* 00000 0000* 

10 


77**2 

> • 

01070 

00 00*61 13200 

10 7 

• 

1^: :.>>■■ 

76663 

76665 

72 77352 05000 

- V. . . - v .; / ;• 

' ; >V. V . ■ • . X ■ * • • 

loader.parameter* 


r*Av>fc 

Rt P* . RT NO ZU-L&O 
MODE! 

OATC 12/1V5U 








V Sts 

PHfPAPiO B* 
• HED B'f 

«t - Sto 9* 


CONSOLIDATED VliLTEE AIBC RAf J C( KPnfcArtC'N 
f, , r . -'wi ft nDjiwtir^P. ’. 

s. r. foil k 


P*Gf l / -I 

PfPO»t Nu 
MODE l A . I 
e»'F *j 



onmand Cod# t 


This command ccrvutea the square root of ( x ) and stores it i 


wrlth full accuracy. An Alarm Halt .occurs for nerative arruments 


AroA«AUXe 

ei jr 













CONSOLIDATED vultee aircraft corporation 
San OitGO division 


50 SQUARE R^ SUBROUTINE 


76553 

01000 

11 00005 20000 

I —> A 


7655* 

01001 

1*6 7601*5 01002 

xiO 


76555 

01002 

**2 00073 01020 

2*155 |X (ie i« 

(x)* OT) 

76556 

01005 

5*» OOdO 00107 

* sc -*> 

•cx 

76557 

0100** 

1*3 20000 01010 

sex odd? 


76560 

01005 

1*6 01006 010C7 

• cxiO 


76561 

01006 

35 00071* 00010 

• cx •*■ 1 —p «cx 


76562 

01007 

51* 00005 00107 

*x X 


76563 

01010 

11 00005 00006 

X N 


7656*1 

01011 

» 

11 00070 00005 

1.2*55 

xi 

76565 

01012 

I3I 00006 0001*2 

© —> A 

- 

76566 

01013 

73 00005 0000** 

£1 -r Xt, —* V 

' \ ® 

76567 

0101** 

5** 00005 00107 

& Xi —>/ A, 


76570 

01015 

23 10000 00005 

VfXi-7Xi 

Q -*A Xi 

76571 

01016 

21 00003 0000** 

xi v j^xi 

—* Xi 

76572 

01017 

1*1* 01012] 01020 

^ Xi,0. 


76573 

01020 

1*5 00000 01721 

•xit 


76675 

.. 76675 

21 76553 02000 

loader parameter. 


f’Al.f. 50*2 
REPORT NO Z|*-ii90 

MODE L 

DATE 12 / 11/^4 






ANAL rsis CONSOLIOATID VL/VTCE AlRCRAf T CORPORATION 

PRCPARCO gy C . \J« S W 1 ft SAN 01 ICO DIM 1 Si ON 

checked bv 13 • !*• Pollack 

«Ek ISED R1 


PAGE ^2-1 
REPORT NO 

model a.11 


date H/I5/5L 



FLIP 

Print and Punch Subroutine 
Print Command ^odei 52 

Punch ^ornr.and Cod* f 55 

Number of Ctlln 56 

fora and print it 

cn tha flexowriter or punch a flexowriter tapa. For theaa conmands y ia 
itriTiflterial. If the Print aubroutino ia used, the Punch subroutine must be 
also specified to the loader. If the location of the first cell of the print 
subroutine ia y, that of the punch subroutine oust be y 2 . 

Fifteen dibits are printed or punched as follows 1 

1 2 3 !i 5 6 7 8 9 10 ir 12 1} Ui 15 

x q . .q q q q q q »p -t p p »p ®p 

Where the number (in floating decimal form) is 
n s. q • 10 P 

No carriage return is included. 



sscri ntion 


These two commands convert (x) - to a floating deoina 












Print and Punch Subroutine 


Plow Chart 


H t» f (» e 4 

ft ip Bt iT 


ANALYSIS 


CONSOLIDATED VULTEE AIRCRAFT CORPORATION 


PAGE 52-2'* 

PREPARED BY 

C. J. 

Swift »■** O'tOO OIVIBION 


REPORT NO ZV-ia 9 C 

C K£CKEO By 

s. L. 

Pollack 


MODEL All 

REVISED BV 


a 


date II/15/5L 
















CONSOt-lOATfcD VULTEI AIRCRAFT CORPORATION 
%AH OUT GO DIVISION 


53 PLTfCH STTBRnGTlWE 


77262 

01000 

11 01067 00002 


prototype —> t 2 

77263 

01001 

11 00005 00035 


x *35 

77264 

01002 

11 00040 00036 


0 —^decimal exponent ( 

7"265 

01003 

75 30016 01005 

1 


’ 7 "2rx.. 

0100k 

11 01051 00015 

f load temporary orders 

J 

^7267 

01005 

?k 00005 20015 

- 

1 

77270 

01006 • 

u3 20000 01010 


j. tes t X 

77271 

01007 

37 0O02 -7 00015 


enter temporaries 

772 72 

01010 

75 1002C 01J12 

I 


772',”3 

01011 

13 0007k '00C15 

j 

- put "space" to all dibits 

7727 1 * 

01012 

71 00035 010k1 


7-1C 7 

77275 

01013 

46 01014 01015 

/ 

) 

• 

77276 

0101k __ 

11 01037 00015 

edjua t b i pn dl pi t 

77277 

01015 

5 k 20000 00051 


X*107 as integer 

773^0 

01016 

12 20000 20000 


H 

77301 

01017 

35 01050 20000 


Round 

77302 

01020 

73 01041 00016 


1st dir.it 

77303 

.01021 

13 01040 00017 


decimal point 

7730k 

01022 

75 30006 0102 k 


) 

77305 

oioe? 

73 01042 00020 


' Remaining digits 

77306 

01024 

11 01036 00037 


set decimal point 

77307 

01025 

11 00036 20000' 

1 


77310 

01026 

46 01027 01030 

adjust sign dlrit of d.a« 

77311 

01027 

11 01037 00027 

1 

J 


77312 

01030 

12 20000 20000 


|d,e.| 

77313 

01031 

73 01047 00030 


1st digit d.e. 

77314 

01032 

11 20000 00031 


2nd digit d.e* 

7731? 

01033 

n 01063 00034 

• 


*.* .ii.? • ’ 7, .*;• • Y- 

Juisp ordar 

77316 

01034 

75 20017 00015 

1 

•' * i' • ' • ■ /; 

• rf A.' . ..... 

77317 

01035 

21 00015 00002 

J 

. 

' conrert to orders 

. 

- 

77320 

> '5r 1. 

«v > • • v.6 

01036 

00 00000 00042 

7 ' *' • t •• 

i-% • 4\- *• ’‘ft 


deolnai point 


Pa. » ^ ^ 

Rf *'• W* ZV-^90 

V Ml 

:*• 12/Uv^ 







/ *-» 









CONSOLIDATED VULTE* AIRCRAFT CORPORATION 





SAN 

OUCO OIV»S»ON 



77521 

01037 

00 00000 0001** 

12. 

REPORT NO £V-ii90 






MODE l 


77522 

010»*0 

00 00000 00006 

6. 

date 12/11^/5^4 

o 

77525 

0101*1 

00 00**6l 13200 

107 



77324 

0101*2 

00 00036 1*1100 

106 



77525 

0101*3 

00 00005 032**0 

105 



77526 

01044 

00 00000 231*20 

10^* 



77527 

0101*5 

00 00000 01750 

K\ 

O 

H 



77530 

0101*6 

00 00000 00144 

10 2 



77331 

0101*7 

00 00000 00012 

• 

10 

. f 


77332 

01050 

00 ooooo 00005 

5 

Ip 


77333 

00015 

16 01736 00015 

sar® exit address 



7735** 

00016 

!~21 00036 0007 b 

d.e 1 -*d.e. 

• 


77335 

00017 

iu 30003 20055 

I n 10 -* V 



77336 

00020 

11* 1*5003 10016J 

10 iN 



77337 

00021 

fl.4 1*5003 00025 

l.R 


c 

773*K> 

00022 

23 00036 00071* 

d.e.-l —^ d.e. 

.. ■ 


7731*1 

00023 

• 11* 20003 20035 

ION N 



7731*2 

0002** 

45 00000 Q0021J 

Jvanp 



7T5H3 

00025 

14 51003 20035 

FLOATING -»- FIXED 


' • 

7731-1* 

00026 

16 00015 01736 

restore exit 



7731*5 

00027 

45 00000 01735 

exit 


1 

7731*6 

00030 

57 77777 50000 

1 (adjusted for rounding) 



7731*" 

00031 

23 77777 751*04 

10 (adjusted for rounding) 



77350 

00032 

24 00000 00004 

10 

- 


77351 

01067 

63 OOOOO 00045 

prototype order • 

. 

”... • . ‘ “ . •»/ 

. r . ■ ' ■ ■ 


76703 

76703 

70 77262 031*00 

V* . .*,*•/. . * ' j - . • ^ 1 • • • 

loader parameter 

* 

•* * f 



52 PRINT 

SUBROUTINE 



771*50 

oiooo 

11 00042 00002 

set prototype 


o 

77451 

01001 

45 ooooo 01003 

* ' • • 

'* - • ; 

* ? 

’V ** - 

76701 

76701 

02 77450 00200 

- / > - _■ 

loader parameter 

\,, s - - ‘ r- 

*>. • , 


A l' '> 

l-'j 

r. fVc 

A.*".' 

■ • 0 . . . • 

• a . «,> - •. ■; 





. • ■ - r v. f . -f 

tv '' - : - - " 

* 






analysis 

P«f PARFD BY c. J, Swift 
CHECKED BY 
REVISED BY 


CONSOLIDATED VULTEE AIRCRAFT CORPORATION 

SAN Diroo DIVISION 


I.. Pollack 


REPORT NO 
MODEL ill 
DATE 


J.QC 


11 Y-Jxh 



Logarithm Subroutine 


Corarand Codei 
Number of Cells» 31 


I Description 


This command computes lo®^ (x) and stores the result in y and R. A 

( 1 ) 

polynomial aprroj^^atxpr is used which rives a naxiaun error of the order 
II Flow Chart 


L ♦ -fa •».«■»- 


fit IT- 


* >■ % ' 1 

^ (*) * (lp'l)Lr\ X f (x + l) 

o - ; P*7 

iff**!) = a, x 'i ... <t 6 X 6 


(1) See sheet 56, Approximations in Vunerioal Analysis, a publication of the 
Rand Corporation 










CONSOt tDATCO VUtTCC AIRCRAFT CORPORATION 

SAN D’lCGO DIVISION 


pa,'. £ S.-2 

f?U\ 'R* NO 

MODE. 

DAI t 12/lii/5tl 


761*62 01000 56 0007 k 00010 

76463 01001 13 00003 20000 

* 

7646k 01002 42 00066 01025 

76465 01003 36 00066 00006 

76466 01004 54 00006 00001 

76467 01005 11 01022 01007 

76470 01006 11 00040 00005 

764?1 01007 ril 00005 ( 30006 ] 



2q-l x (35) 

d —* i 
0 —? L 

1 

L 



76472 

01010 

71 20000 00006 “ 

) 


76473 

01011 

54 20000 00045 

f x > L -r* L (; 

c 

76474 

01012 

11 20000 00005 J 


76475 

01013 

21 01007 00074 

l-l —* 1 


76476 

01014 

42 01023 01007] 

• 0*1 

3 

76477 

01013 

54 00005 00101 

L @1 


76500 

01016 

71 00010 01026 

p.ln 2 —f R 


76501 

01017 

33 00005 00005 

. • 

L+- p.ln 2 —■ 


76502 

01020 

* ’ f • 

n 00067 00010 

7 —p p \ 


76303 

01021 

45 00000 01024 

t 

exit 


76504 

OI062 

21 00005 01027 ' 

l 

• 

76505 

£ . ‘ 


prototype# 


01023 

21 00005 01037 J 

■ 

1. 


76506 

01024 

43 00000 01721 

normal exit 


76507 

01025 

45 00000 01737 

- alarm exit 


76310 

01026 

00 13056 20577 

• - 

In 2 (28) 

C 

76511 

01027 

* 

77 62620 75765 

s . • ■ . 

*6 


'$ X ; C - 

VfP..: ' 

}- « '•_ 

&!»¥&> . -as 

, y 3 V_.- r . ... . > f • 

! Ti; / • ‘#v: ■' • • 

‘ V-: ' r .v . • 

• 


-A.' ’sfSg'S:'* 

. 

... >.■ 

->• 

* -v> . ‘./ ‘i. ■ ivUi 1 ' 

V t* ;■ 

■‘.f /* ><.'<*• 

' 

’: iP* 

‘ «. ' t .»?//. ..fy 

: 

'TCeQShj 

' . ••’&! 

v-VAV* ' ■ ‘ •' 

-i**.** v •*.- .■/*, ■ 1 „ 

! •• a...-.-*#* • JT t./ 

V.'V;,V tv 1 ' \ . 


3 

.1 






• "M-" 


« : . 




1 .. 

ii' * ' 1 







CONSOLIDATED VUlTEE AiRCR»* T CORPORATION 





SAS 

OIC.G 0 O V*S ON 

76512 

01050 

01 11-721 

** 161*2 

cu 

f 

76515 

01051 

71* 71*607 

7070 6 

a 6 

76511* 

01052 

05 27266 

02203 

a 5 

76515 

01055 

70 22761* 

251*56 


76516 

01051* ' 

12 1» 7U1U 

5751*5 

a ? 

76517 

01055 

60 00205 

77520 

'4 

76520 

01056 

3^ 77771* 

20006 

*1 

76705 

76705 

37 761*62 

021*00 

loader parameter 



P w 5L-? 

RrP'.T'c n Di-« I )X) 

Mv S>(< - 

6 AT* 12/lil/^L 








ANALYSIS CONSOLIDATED VULTEE AIRCRAFT CORPORATION 

PREPARED B* C. J. Swift I** OICGO DIVISION 

CHECKED 8Y S. L. PcllflCk •» 


HE V ISE D BY 


PAGE 60-1 

BE POUT NO 

model All 
DATE ll/l r >/5<. 


Sins and Cosine Subroutine 


Sine ^ommand L odei 


Cosine Comand Codei 61 


Number of Cello i ^1 


Description 


These taro commands compute the sine or cosine of (x) and store it in 


y and R. A polynomial approximation la used^ which rives a maximum error 


of the order of -5 • 10"^. For arguments B0 Jarre that the roundoff error 


of the arrument obecurea the result, an alarm halt occurs. If the cosine 


1 

subrouting is used, the sine subroutine must also be specified to the londeri 


and if tha location of the first cell of the cosine subroutine is y,that of the 


line subroutine must be y +- 2, 


: .• v- ■ 


. 




' i * iV. •, . 

w- ;• V b‘ 

. .*■: b 

• . . N ■ 


■ -• ^ ■ 

) • ' • 


/ t . >' 

. ! • . . .. •. ... „• 

/ ■ I . • • 

... . b .. . 1 

(1) See sheet li*. •Approximations in Numerical Analysis", a publication of the 

Rend Corporation " 
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SAN OlCGO DIVISION 


7?i*5 2 
i ?l * 53 

76717 


77454 
774 55 

.'?!»5c 



7?46l 

77^*62 

77463 

77464 

77465 

77466 

77467 
77U70 

771*71 

771*72 

77473 

77i*7i* 

'771*75 

771*76 

771*77 

77500 

77501 

77502 

77503 
7750»* 


01000 11 01054 00001 * 
01001 1*5 00000 01005 


61 C 061 ms STBRTJTIWE 

-> % 


Jump 


p *of 60-5 

Hr POM' N, Z*-i490 
MODE l 

date l2/U,/5ti 


76?l7 02 771*52 0020C loader pararreter 

6C SINE SUBROUTINE 
0001*0 00001 * 0 —> 


/ 


01030 11 

. 


00010 00056 
01003 7601*5 

i 

00053 20000 

01006 01007 

■ 

eoooo 00036 

f 

0001*0 00005 

01005 100O0 

01050 01011 ~) 
00010 1000 qj j 

01013 oioiu 
20000 20000 
01060 10000 
00001* 20000 
00066 00004 
01052 01023 

000Q1* 00<301 

01051 20000 
01057 01017 
20000 0004 3 
01052 00005 

00005 10000 
20000 0001*5 
20000 00006 
00040 00007 


■CX-27 —> 8CX 
ALARMT 
scx -27 + 

Zero Result? 

30. 

0 -~j* x 

bcx- 27 +5li-30 

• cx __ 


Q#a 


x*2 

left shift? 

0 —-y L. 

x-n*2 Tr — > A T 

1 + (4;; -» r 

7< •• Y 

chan re sign t{ t 
f - IV -9 \ 

Jump 


-9 t 6 t 35) 






• 1* r 
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77505 

C1051 

15 01022 01055 

9 —♦ & 

77506 

01052 

11 0CH>1 00010 

i. —* ta 11 y 

77507 

01055 r?i 000 C 7 00006 ^ 

/ 

7 7 510 

010> 

51 20000 00015 ' 

> x.r +ei P (j£) 

77511 

01055 

55 0 I 060 00007 / 


77512 

(1056 

25 01055 00073 

• tap i 

7 '515 

01057 

^1 00010 01033 J 

done ? 

7 751 L 

QlOlC 

71 00007 00005 ~ 

51 20000 00016 l 


77515 

01011 

x * r -* x (y) 

'’7516 

01012 

11.20000 00005 ) 


7 7517 

01015 

11 OQOOl 10000 ~) 

' . r 

- check sipn t! 

7 7520 

01011 

11 01015 01016 j 

77521 

. 01015 

15 00005 00005 

-X X 

77522 

oic^.6 

11 ooolo 00010 

0 — ? icx 

77525 

01017 

15 00000 01721 

exit 

7752 1 * 

01050 

51 00005 21110 

prototype 

77525 

01051 

11 11176 65200 


77526 

01052 

06 22077 32501 . 

^/2 (32) 

7 7 527 

01055 

31 10375 52202 

C 1 

77550 

01051 

65 5212 c 76152 

c 5 

77551 

01055 

01 21161 25751 

c 5 

°7 

77552 

01056 

77 73155 16316 

77555 

01057 

00 00117 52757 

c 9 

77551 

01060 

51 10575 52121 

’ 

2 17 / 32 ) 

76715 

76715 

61 77151 01700' 

loader oaraget*r 


"•'* 60 -u 

r •• sv-i, 

m l i 

12/H/5/, 
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\ro Tanrent end Arc Cotenfcent Subroutine 


Tangent Co~mnd Codes 


Co^anrent Command Codes 63 


Number of Cel 1st ii7 


!>■cription 


compute tan'^X or cot •< and store the result in y and 


these two c 


R. " polyn^xi al iMcprMEimation Is used 


»he error is of the order of 


l/2 * 10 . If tfte-'sPc cotanrent subroutine is used, the arctsnrent subroutine 


must also be aneoified to the loader 1 and if the location of th» first- cell 


of the ar'-tanrent suhroutise is v, that of the arc cotangent cu'; rout n* must 


. 

f \ A £aa - 1_ t . N - _V 
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ft 

i o 1 Li r k 


CONSOLIDATED VDL'TEE a I PC R a p T COR ^OR AT 

S*N Die^'T DKISV’N 


P A G F u? - T. 

Hfc PORI NfZV- 90 

MODEL A! ] 


DATE 
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rl ros 
MODE l 
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62 Arc Tanpont Subroutine 


76300 

01000 

11 00040 * 0012 

0 & 1 

76301 

01001 

23 00010 00074 

Scx-1 -^T Sox 

76302 

01002 

46 01007 01003 

OiScx 

76303 

01003 

13 00010 00010 

-Sex —-?■ Sex 

76304 

01004 

31 00066 00042 

*_ -y x 

76 3 05 

01005 

73 00005 00005 j 

Ux 

7 6306 

01006 

27 00012 00062 

reverse £7 ( 

76507 

01007 

21 00010 01043 

Sex -*■ 27 —’X 1 < 

76310 

01010 

46 01011 01312 

1 

OiScx 

763U 

01011 

11 0004C 20000 

0 —f Sex 

76312 

01012 

35 01054 01013 

r - V 

[54 00005 50055] J 

Sex-£7 

76313 

01013 

x.2 ^ 

76314 

76315 

01014 

71 00005 10000 -) 

(*f -. © 

01015 

54 20000 00046 f 

76316 

01016 

11 20000 00006 J 


76317 

01017 

11 00040 00010 

0-» P 

76320 

01020 

15 01035 01023 

15 * -* t 

76321 

01021 

I71 00010 00006 

' - 

76322 

01022 

54 20000 00046 ^ 

P- -r C t 

76323 

01023 

35 [01044] 00010 ) 


76324 

01024 

21 01023 00073 

i-2 -? i 

76525 

0rO25 

42 01034 oioaj 

dona? 


76526 

7652? 

76550 

76551 

76552 




01026 71 00005 00010 
01027 9 * 20000 000*0 

' r» *■ ‘ **'-.*• r V ; 

11 20000 00005 

. /*& v! * | 

11 00012 20000 

- ' ‘"l/ 

01052 47 01055 01040 


P*X J 


© 


01050 

V 

01031 






Oi A 1 

’ w * C7 

BKr' 

•*. -i $ 2'.'Z V v. >*• 

'. r V ' 


<5 ' ■ •' 


. ■ ■ 


.' ”r: . v 


; - : ; 

'* '• "Vy. ,‘J 






62-5 

» ’* ZU-L9Q 
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A 
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76333 

01033 

00 01044 00000 

76334 

0103* 

33 01054 00000 

76355 

01055 

44 01036 01057 

76336 

01036 

13 20000 20000 

76337 

01037 

36 00003 00005 

76340 

01040 

n 00074 00010 

763^1 

01041 

16 00013 01734 

76342 

0104 2 

45 0000©' 01721 

76343 

01043 

00 000 4 «*» 

76344 

01044 

77 67545 00615 

76345 

01043 

00 54613 12165 

76346 

01046 

76 13376 17035 

76547 

0104? 

03 05357 57500 

76350 

01050 

73 43116 33123 

76351 

OlOJI 

06 50402 45553 

76352 

01052 

63 25317 10166 

76353 

01053 

37 77777 23166 

76354 

0105** 

54 00005 00055 

76721 

76721 

55 76300 03600 


f; •. 

i . -„£.j • i 


con*“ants 


Oi x* 

- 6* 1 ~=f fc> 1 

2 - v *^ 1 

1 -^ sex 

6et order 
®xi t 
27. 

C 15 

°13 

c u 

c 9 

°7 

c 5 

c 3 

C 1 

prototype order 


76721 76721 53 76300 03600 loader paracieter 

63 ARC C0TA.N0ENT SUBROUTINE * 

76356 01000 11 00062 00012 ^ (39 —? @ 1 

76337 01001 A3.00000 01003 Jump 


76723 76723 02 76356 00200 


leader parameter 


*• 


F •*. .73 ■ « a • ’• • •. ■ • - . r-Va 

•U:V • 

. 

• - - . 

- V i\ S • \ . ■ , . ' .■ ■ ■ • 


r>Av,e 62*4j 
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■ \ 

i 
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70-1 

r*-ij9o 

AH 

11 / 15 / 5*4 


ONSOUDATED VULTfcE AIRCRAPT CORPORATION! 


FLIP 


Exponential Subroutine 


Ceassand Cod* 


Rurfcer of C«lls i 


This command computes ths exponential of (x) and stores It In y and R 
Full aoouracy is obtained by a power series. For valuee of (x) an 

alar* halt oooura. e“ x is obtained by computing s"* x and reoipraoating. 

II Flow Chart 





X3 60 
76X1 
76562 
76X3 
76 5 & 
76 565 

76366 

76367 

76370 

76371 

76372 
763 ?5 
7637^ 

76375 

76376 

76377 
761*00 
761*01 
76102 
761*05 
76lfOU 
761*05 
761*06 
761*07 
761*10 

' 

76755 


CONSOLIDATE n VULTE E AIRL RAf T CORPORATION 

D1I6O OiV'Si'JN 


70 EXPONENTIAL S-"tR •tint 



01000 
01001 
01002 
01003 
01001* 

01005 
01 
0100 
01010 

01011 

01012 

01013 

0101U 

00015 

00016 

00017 

00020 

00021 

00022 

00C23 

00021 * 

00025 

01026 

01027 

01030 


11 00005 00037 
56 00067 10000 
11 00005 20000 • 
1*1* 01001* 01030 
75 30011 01006 ■) 
11 01015 00015 ! 

73S&0001* 01010 
026 00026 
1*7 01011 01013 
11 01027 00023 
27 00037 01772 
75 30003 00016 
16 01731* 0003** 

rr* 00003 10030 
11* 32003 00037 ^ 
1U 21002 60026 j 
11* 00002 60027 
H*. 07002 70026 
1*7 00015 00023 
[u 00027 20000J 
75 30003 01731* ‘ 

16 00031* 01751* 

20 00000 00001 
11* 52002 70051 
»*7 01607 7601*5 


x —y ^37 

y • 

acx - 7 a 

x —f A 

«cx-7 « 0 

set up temporary orders 

preset variables 


x i 0 

aet order 1 

' 7 

-x —7 x 


shift addresses 

a-* 1 -> n 

x . T 

n 

s + T S,R 


,R 


7 . | 




•hift addresse*, EXIT 

1 

l/s —> R 
x ,0 


• a 70-2 

I. * •*• N IV-690 

M V. \ 

r*M 12/U./X 


76755 51 76560 01200 


Loader parameter 







Trace Subroutine 


Command Codet 


Number of Cello i 26 


I Description 


The trace routine operates in two phases. Phase I operates concurrently 


with the running of the routine bei-f; tested and stores information on Magnetic 


Phase II operates separately from the routine Uei.ng tested. It 


r-ads the information which was stored by Phase I on MT2, processes it and 


punches a paper tape output. The content of ES will be automatically restored 


II Phase I 


The trace subroutine must be specified to the loader. Its "c^mand coda 


for this purpose is 77. It requires 26 cell*. iVhen loaded, it will operate 


whenever MJ1 is on. The MJ instruction is in cell 01735* This subroutine uses 


as temporaries 


This operation uses the SS a nd cell ItOOOO but will restore oth when 


completed. Its operating instructions arei 


1. Set PAK to 77600. Press Start. The 1103 prints out ."Rewind 


2. After rewinding WT2, ifcart. (if PAK was disturbed,set it to 1*0000) 


The routine will search the tape for the data, t hen process it on* 


block at a tie*. The output is punched on paper tape. The and of 


data will be epparent when the routine searches MT2 without punch 


ing paper tape. Halt 


0 continue the pro lem, set PAK to 1*0000 and start* The 1103 will 


restore ES and 1*6 00 and halt with a 5^ OOOuG 1*0000 command 
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The trace routine output prints a }2 dirit line for each FLIP Instruction. 


If a jump occurs, either an erroneous line appears or no line at all 


FLIP subroutine commands include FLIP baric commands. . These will appear as 


extra lines before t he FLIP subroutine command line. The lines have the formi 


xxxx yyyy * q.qqqqqq * pp 


where AAAA is the last four dipits of the address of the instruction 


OP la the command code 


xxxx is the basic x address 


yyyy is the basic y address 


IQ** where 


The result of the operation, in floating decimal form, is q 


ome of the FLIP subroutine cooraands do not leave their result 


For theae, the result 


erroneous 


In order to avoid confusion when several problems are traoed using the 


same magnetic tape, r hase II overwrites the trace information as it is 


processed 
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f 
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o-m 
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i«r v n 

R»»for« fm* 
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77 PHASE I of TRACE 


76521 

01000 

76522 

01001 

76525 

01002 

76521. 

01005 

76525 

01004 

76526 

01005 

76527 

01006 

76550 

01007 

76531 

01010 

76532 

01011 

76533 

01012 

7655** 

01013 

76555 

0101*. 

76536 

01015 

76537 

-01016 

76540 

01017 

-6541 

01020 

76542 

01021 

76543 

01022 

76544 . 

01023 

76545 

01024 

76546 

01025 

76547 

01026 

76550 

01027 

76551 

01050 

76552 

01031 

t —* • 

76755 

76753 


37 01000 {01023J 
11 20000 01025 

51 fel ' 7 5^] 00017 
25 20000 00075 
11 20000 01025 
15 20000 01006 
ll/5000q70102i$ 
75 50005 01011 
11 01025 (74001/ 
21 01010 0004} 
U2 01026 01050 
16 01027 01010 
75 50056 01016 
11 01000 75000 
75 50056 75020 
11 71*001 01000 
65 20001 01000 
75 50056 01050 
11 75000 01000 
15 010*1 01002 
75 100*$0 01001 
11 0001*0 71*001 
11 01025 7^057 
00 00000 7 L 001 
11 01025 20000 
»$5 01756 01756 

52 76521 05100 


I 



l 


1 

/ 


I 


I 


r 


} 


2 —* i 
s ter* R 

exit address --> A 


(A.) —^ I 


atore A, 

step 

done? 

restore 



place ea on UD 


place information in SS 


print on U T 2 

restore ES 

set order 

clear temporaries 

• ' ■ ' h 

eo&ittati 

t - -* • \ r •■ T “ * /• 

restore R 
exit 


leader £ara*eter 


HA j( 

Pir 

MOOEi* 

DATE 


77-5 
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CONSOLIDATED VULTEE AIRCRAFT (X1SPOBATION 

san onso division 


P!!A£E II of TRACE 


77600 

00117 

11 40000 74000 

77601 

00120 

75 31777 77673 

77602 

00121 

11 00001 74001 

77603 

00122 

53 00000 01300. 

7 7601 

00123 

00 00000 00000 

77605 

00124 

45 00000 00215 

77606 

00125 

37 00200 00201 

77607 

00126 

45 12203 11406 

77610 

00127 

.2-2 04470 70157 

77611 

00130 

74 45000 00000 

77612 

00131 

00 00000 00000 

77613 

00132 

11 00124 40000 

77614 

00133 

45 00000 76575 

77615 

00134 

n$7 20010 G0000 

77616 

00135 

15 00172 00137 

77617 

00136 

75 30003 00140 ~) 

77620 

00137 

11[00700J00020 

77621 

00140 

11 00021 20000 ", 

77622 

00141 

42 00170 00143 y 

77623 

00142 

42 00171 00146 j 

77624 

00143 

21 00137 00073 

77625 

00144 

42 00173 00136 

77626 

• 

00145 

43 OOOOO 00222 

77627 

00146 

21 00137 00174 

77650 

00147 

63 00000 00042 

77631 

00150 

55 00020 00011 

77632 

00151 

37 0000157 

77633 

00152 

55 00021 00006 


store L0,000 

store E.S. 

Loader parameters 

return from loader 
print flex characters 

Flax character* 

preset ljO,OCO 
enter loader 
back tape 
preset order 

pickup A,I,R 

Test I 

Step by one 
done T 
Jump 

Step by three 
punch carriage return 
shift A by 3 octal 
punch A 
shift C 


- Ai.f 77-o % 

*' “ ZV-.';90 

MCK £ 
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r*.,r 77.7 
WM-OR'.N ZV -^90 

1 

■' Ar t 12/1 i/% 


77634 

00153 

11 00074 00006 

1 —* tally 


77635 

00151* 

37 00166 00160 

punch operation 


77636 

00155 

37 00166 00157 

punch x 


77637 

00156 

45 00000 00175 

juiip 


77640 

00157 

11 00043 00006 

3 tally 

SDBRXTIlfK FOR 

77641 

« 

ool6o 

[*55 loooo 00003 

SHIFT 

OCTAL PUNCH 

77642 

00161 

51 0006? 20000 

X TRACT DIGIT 


77643 

00162 

35 00167 00163 

aet order 


7761*1* 

00163 [bo 00000 00000J 

punch dip-it 


776»*5 

00161* 

41 00006 00160J 

Index 

• • 3 

7761*6 

00165 

63 00000 00041* 

punch apace 


7761*7 

00166 

45 00000 Q000C 

exit 


77650 

OOI67 

63 00000 00045 

prototype order 


77651 

00170 

13 77777 77777 " 

i 

* 

77652 

00171 

14 77777 77777 



77653 

00172 

00 00700 00000 

> constants 


7765** 

00173 

11 01275 00000 ‘j 

( 


‘77655 

00171* 

00 00003 00000 J 

* 


77656 

00175 

37 00166 00157 

punch y 

• 

77657 

00176 

14 53002 20000 

punch r 


77660 

00177 

45 00000 00136 

jump 


77661 

00200 

45 00000[000003 

exit 

SUBROUTINE F°R 

77662 

00201 

f*31 00200 00017 ) 

1 

1 

FLEX PRINT 

77663 

00202 

1 

15 20000 00204 

> 

v aet order 

1 . 

i ' i ,' 

77661* 

00203 

21 00200 00074 

• tap 

x 

77665 

0020»* 

31 00000 00044 

Wfrd L 

* i '& • - • * •••>*. 

f 

^ t 

77666 ; 

00205 

47 00206 00200 

done? 

'-1 ■’ 

77667 

• - r- < . 

00206 

[54 20000 00006 

•hift next dig:it 

> 


- 

77670 

00207 

61 00000 20000 

punch 

•’» V • ■ ■* 

• ‘; / 



i- 

t ; ■. 

. 

' / 1 " 

:- V, 

; •' -V ( 

.=*iv * • v ;* 









CON SOLI OAT CO VULTCi AIRCRAFT CORRORAT 
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10 N 


m 

77671 

00210 

27 00040 0001*0 

Clear R 

77672 

00211 

47 00206J002Q3J 

doneT 

£ - 

77673 

00212 

n 77605 00010 

set exit of louder 


7767 1 * 

00213 

75 30200 00125 

) 

!• .: - 

77675 

00214 

11 77605 00122 

V put phase II into E.S. 


77676 

00215 

37 40000 00225 

set l0,0OO lor restoration 


77677 

00216 

75 31777 77701 1 

1 


77700 

00217 

V 

11 74001 00001 J 

*• restore KS 


77701 

00220 

11 74000 40000 

restore 10,000 

f :- % 

»•, 

77702 

00221 

56 00000 UOOOO 

halt , 

fc' 

t, 

77703 

00222 

65 20010 00300 

print orer old date 


77704 

00223 

64 20010 00700 

read new data 

k'A ■ 

i.' - •• ; ’ 

c. 

77705 

0022k 

75 10400 00134 

! * 

1 

o 

77706 

00225 

11 00040 00300 

store seros for printing 


I . . y /: ;■ •' ; 

f ■■ 

f -\ : - ‘ ■ l 

J V r;^> •; i * . ’* 

R- 

r 

I . ' ' ■ .*■ ■ - s' 

,, - 
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A MAGNETIC TAPE INTERPRETIVE ROUTINE 


"TAPEWORM" 


B^crlp^Lqn 


"Tapeworm" is a routine for controlling the operation of the 
Uniservos on the Univac Scientific, Model 1103A. It is an 
interpretive routine which permits a programmer to specify 
with a single Interpret instruction a read, write, move, or 
rewind operation. This routine includes prevision for re¬ 
reading a block in case of a parity check failure and auto¬ 
matic selection of the writing mode according to the 
peripheral equipment for which the tape is intended. 


of .the Interpret Inptrqc^ipp 


Use of the Interpret instruction provides a convenient means 
of referencing magnetic tape subreutines. Because of the 
availability of 10 octal digits in the instruction for the 
storage of parameters, any of the Uniservo operations may be 
specified with a single word. The form of the Interpret 
instruction for the operations of reading, writing, moving and 
rewinding is given below. Here each character represents an 
octal digit of the instruction. 


a. IP 

OP 

-B 

UU 

SSSS 

for reading tape 

b. 

IP 

OP 

AB 

UU 

SSSS 

for writing tape 

c. IP 

OP 

— 

UU 

BBBB 

for moving tape 

d. 

IP 

OP 


UU 

— 

for rewinding tape 


These Interpret instructions specify magnetic tape operations 
as follows: 


a. Reading Tape : IP OP -B UU SSSS 


IP = 14 

OP = 01 For reading foreward 

= 05 For reading backward 

B = the number of blocks (not words) 
to be read 

UU = the Uniservo involved 


SSSS = the address in Rapid Access 

Storage of the first cell to be 
read into 





A MAGNETIC TAPE INTERPRETIVE ROUTINE "TAPEWORM" 


b. Writing Tfcre i IP0P4B UU SSSS 

IP = U 


OP = 03 


4 = 

the code number as given below of 
the peripheral equipment for which 
the tape is intended 

B » 

the number of blocks (not words) 
to be written 

UU = 

the Uniservo involved 

SSSS = 

the address in # Rapid Access Stor¬ 
age of the first cell to be read 


from 


The following code numbers are us9d for 4 t 
a = o 11C3 A internal 
= 1 High Speed Printer 
= 2 Uniprinter 

= 3 Magnetic Tape-to-Punched-Card Con¬ 
verter 

= 4 Unitape-tc-Teletape Converter 

= 5 Unitape Transmission 

Tapes prepared for the Unitape-to-Tele tape 
Converter may be used for Unitape Transmission 
and conversely. Any tapes may be read into 
the 11G3A. 

c. Moving Tape : IP OP — UU BBBB 
IP = 14 


OP = 02 
= 06 
UU = 
BBBB = 


for moving foreward 

for moving backward 

the Uniservo involved 

the number of blocks to be moved 


2 
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d. Rewinding: IP OP 4- UU - - 

IP = 14 
OP = 04 

A = 1 if interlock is desired 

= 0 if interlock is not desired 

UU = the Uniservo involved 

Digits denoted by a dash may be filled with anything. A maxi¬ 
mum of seven blocks may be written or read with a single 
Interpret instruction but the tape may be coved as many as 
7777 blocks. Note that the block number for moving is in a 

different position than the block number for reading or writ¬ 

ing. 

In reading backward, the first word goes into SSSS and the 
second into address 9BSS - lj in reading foreward the second 
word goes into address SSSS + 1. 




After a block is read from magnetic tape, the contents of I0A 
are examined to see if a parity check failure has occurred. If 
there is no failure, the next block is read in without stopping 
the tape. If there is a failure, the reread subroutine is 
entered. This subroutine performs successive rereads of the 
block, reversing the direction of the read after each failure. 
In case the direction of the original read is foreward, the 
rereads are performed in the following sequence: 

1. read backward, normal bias 

2. read foreward, high bias 

3. read backward, high bias 

4. read foreward, low bias 

5. read backward, low bias 

After each reread, the parity check indicator is tested. If 
the reread has been successful, the tape is positioned at the 
end of the block, the bias returned to normal, and the next 
block read. If a reread fails, the next reread in the sequence 
is performed. Should the entire sequence be executed without 
a successful reading of the block, the computer is stopped. A 
restart of the computer will continue with the reading of the 
next block. 


3 
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When an Interpret instruction at address y is executed, y + 1 
is inserted in the U-address of Fp and the next instruction is 
obtained from F 2 . Fp must contain a manual Jump instruction 
which provides the exit from Tapeworm to the next instruction 
of the main program at address y + 1. ?2 oust contain a manual 

Jump to the entrance of Tapeworm. 

The first eight instructions of Tapeworm detect whether an 
Interpret instruction is referring to this magnetic tape inter¬ 
pretive routine or to some other interpretive routine used by 
the same program. With the Interpret instruction of the form 

IP OP XXXX XXXX, 

if 0C<0P<07 it is assumed the Interpret instruction refers to 
Tapeworm. Two exits are provided, one for OP = 00 and the 
other for OP>07. If a program refers to interpretive routines 
other than Tapeworm, these exits may lead to the other inter¬ 
pretive routines. , If no other interpretive routines are used, 
the first eight instructions of Tapeworm may be omitted. 


Location 

Tapeworm occupies 149po cells of Rapid Access Storage. Of 
these, the parity check test and reread routine occupy 50po 
cells; 8 cells are used to determine if an Interpret instruc¬ 
tion refers to Tapeworm. 


For a reading or writing operation there is approximately one 
millisecond between execution of the Interpret instruction 
which specifies the Uniservo operation and the External Function 
instruction which initiates the operation. This time is in¬ 
creased to 1.25 milliseconds if it is necessary to identify the 
interpretive routine being referred to. 


Notes 


If absolute addresses are assigned to Tapeworm, starting with 
bp = 01000, it is assembly modifiable. 

In case Tapeworm is interrupted during operation, it must be 
again transferred into Rapid Access Storage in order to operate 


4 
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correctly the next time it is used. If Thpeworm stops after an 
unsuccessful reread, it will reset itself if and only if it is 
restarted without any changes in the computer controls. 


5 
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OP COOES 


VALUES OF A 


ABBREVIATIONS 


01 - READ FORWARD 
02 - MOVE FORWARD 
03 - WRITE 

- REWIND 

- READ BACK 

- MOVE BACK 


1103A INTERNAL 
HIGH SPEED PRINTER 
UNIPRINTER 

TAPE TO CARD CONVERTER 


FI - ADDRESS 00000 

F2 - ADDRESS 00001 (JUMP TO START OF THIS PROGRAM) 

PF - PREVIOUS FAILURE 
OP -OPERATION CODE 

UNITAPE-TELETYPE CONVERTER (H 4 ) v - CONTENTS OF V-ADDRESS AT ADDRESS H 4 

unitape transmission MAGNETIC TAPE INTERPRETIVE 


_I 


REMINDER FLAG 


ROUTINE 


"TAPEWORM'' 


(ED 


OPERATION 


DECISION (JUMP) 



CONNECTOR 



REFERENCED CONNECTOR 
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MAGNETIC TAPE INTERPRETIVE ROUTINE 
Tapeworm 


REGION REGIONAL INSTRUCTION REMARKS 

ADDRESS 


Region B« 
Selects 

bl 

31 

0 

17 

IP instruction —^ Aj left shift 15 

Uniservo 


36 

cl 

a 

subtract 1 from u-address 

Interpretive 

Routine 


15 

a 

b2 

address of IP u of b2 


b2 

H L 

y] 

vl 

IP Instruction —^ vl 



11 

vl 

a 

IP instruction -> a 



42 

c2 

exit 1 ~ 

Uniservo instruction? yes dl 



42 

c3 

dl 

f too small —> exit 1 



45 


exit 2 _ 

too large exit 2 


Region D« dl 

Set 

11 

c4 

q 

mask —^ q 



Parameters j 

Select 

53 

vl 

v2 

uu + ssss ( or bbbb) 


v2 

Ubiservo 

11 

c5 

q 

mask q 



Operation 

53 

v2 

h4 

ssss v address 

for 

EW or ER 


55 

vl 

34 

Right shift IP by 8 




53 

c6 

v2 

OP code —> v2 




55 

vl 

21 

2nd octal digit of OP code to left end 


44 

d2 

wl 

p 

Back or rewind: yes 


d2 





no 


wl 

d2 

44 

d7 

d3 

Read back or rewind 
Move back —^ d7 


d3 

d3 

44 

rl 

d4 

Read back —^ rl 




Rewind —^ d4 
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REGION 


Region 

Set up 
write 


>. 

t } 

MAGNETIC TAPE INTERPRETIVE ROUTINE 
Tapeworm 


REGIONAL INSTRUCTION REMARKS 

ADDRESS 


V. 

to 


d4 

11 

c8 

vl 

Rewind digit —^ vl 


55 

q 

2 

Interlock? yes —^ d5 


44 

d5 

d6 

r 

no d6 

d5 

55 

vl 

1 

Set IOB — I0B g _ for rewind 

with interlock 

d6 

55 

c6 

q 40 ] 

> Insert uu 


53 

v2 

Vl J 



31 

cl 

20 | 
4 

> Rewind IOB word —> v2 


35 

vl 

v2 


d7 

17 


v2 

Uniservo selection for move and 
rewind 


15 

c9 

v2 

Clear digits In v2 


45 

0 

fl 

Exit 


wl 

44 

w2 

r2 

Move foreward or write —> 

w2 






Read foreward —> r2 



w2 

44 

w3 

d7 

Write —* w5 







Move foreward —> d7 



w3 

11 

clO 

a 

Bit pattern —> a 




44 

w4 

v5 

Separate A A * 4 or 5 —^ 

w4 






A = 0 - 3 

w5 


w4 

54 

a 

20 

Left shift 16 (4 groups) 









Shift 


45 


w9 



write 

w5 

44 

w6 

v7 

A =* 2 or 3 —w6 


bits 

In a. 





A = 0 or 1 —^ v7 


AU Cm • 






i 

> 

w6 

54 

a 

10 

Left shift 8 (2 groups) 
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MAGNETIC TAPE INTERPRETIVE ROUTINE 


Tape vo rm 


REGION 

REGIONAL 

ADDRESS 


INSTRUCTION 

REMARKS 

1 



v7 

Mi 

v8 

v9 

A * 1 —^ v8 

& « 0 V9 



v8 

54 

a 

4 

Left shift 1 group 



v9 

55 

c6 

9 2 

Set mask for write hits 

Region Hi 


53 

a 

v2 

Write bits v2 

Read / Write 

hi 

55 

vl 

q 11 

Number of blocks v add. 

of q 



51 

c7 

vl 

Number of blocks vl 



47 

h2 

b5 

Read (write) 0 blocks? yes - 
no —^ h2 

45 


h2 

17 


v2 

Start tape writing (reading) 



23 

vl 

c9 

Set index for 2nd U 


h3 

11 

ell 

v3 

Set index for 1st U 


h4 

ifr] ioooo 

ssssj 




21 

h4 

v4 

> Write (read) 1 block 



111 

v3 

h4 



h5 

41 

vl 

[ h3] 

n blocks done: no h3 if writing 

h7 if reading 



23 

vl 

c9 



h6 

45 


t r4] 

yes r4 if writing 

h7 if reading 


h7 

76 


a 

Parity check OK? 


h8 

43 

c9 

[ pi] 

Yes h9 no pi if 1st failure 

p2 if previous failure 


h9 

21 

vl 

c9 



hlO 

41 

vl 

C h3] 

All blocks read? 


no —> h3 no previous failure 
p9 previous failure 
yes hll 


V 
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MAGNETIC TAPE INTERPRETIVE ROUTINE 
Tapeworm 


REGION 

REGIONAL 

ADDRESS 

INSTRUCTION 

* 

hll 

45 L r3 


REMARKS 


All blocks are read « 
no previous failure —> r3 
previous failure —> p!3 


Region Ri 


Set up to 
read 

rl 

13 

v4 

v4 


r2 

23 

h4 

cl3 



21 

h5 

cl4 



23 

h 6 

d5 



45 


hi 


r3 

21 

h4 

cl3 



23 

h5 

cl4 



21 

h6 

d5 



11 

c9 

v4 


r4 

IT 


cl2 



45 


fl 

Region Pi 





Parity-Error 

Pi 

21 

hlO 

cl6 

Reread 


21 

hll 

cl8 



21 

h8 

cl7 



11 

cl9 

v5 


P2 

17 


cl2 



13 

v4 

v4 



21 

h4 

v4 



55 

v4 

q 22 


Change direction of read 

EV7 ER, 

Insert Parity check 
Set exit for Parity check 
Go to read 
ER EW 

Remove Parity check 

Reset direction index 

Stop tape 

Exit 


s Set exits from ER 

Reset bit formation 
Stop tape 

Change direction index 

Line up direction bit with IOB 
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REGION 


MAGNETIC TAPE INTERPRETIVE ROUTINE 
Tapeworm 


REGIONAL INSTRUCTION REMARKS 

ADDRESS 



23 

v2 

q 


21 

vl 

c9 


11 

v5 

q 


11 

c20 

a 


44 

p3 

p8 

p3 

44 

p4 

p6 

p4 

44 

pll 

P5 

P5 

35 

c9 

P7 

p6 

35 

c9 

p7 

P7 

17 

(c21-l) 

p8 

17 


v2 


11 

9 

V5 


*5 


h3 

p9 

17 


c23 


23 

hlO 

cl6 


23 

hH 

d8 


23 

h8 

d7 


11 

v5 

q 


1*4 

plO 

h9 

plO 

13 

v4 

v4 


55 

v4 

q 22 


23 

v2 

q 


21 

v2 

c24 


55 

c4 

q 14 


Change tape direction 

Reset block counter to offset hlO 

Set bit sequence 

Bias change instruction —$> a 

1 change bias —^ p3 
0 not change bias —> p8 

1 low and stop —p4 
0 high p6 

1 stop —^ pH 
0 low p5 

Modify p7 for bias change 

Change bias 
Start tape 

Store parity check bit pattern 
Reread 

Set bias to normalj stop 

Reset exits from ER 

Direction change and move needed? 
Yes —^ piOj no h9 

Change direction 

Change (v2)^ - (v2) to a 2 or 6 
for moving 

Set mask in q 



t 
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REGION 


Constants 


MAGNETIC TAPE INTERPRETIVE ROUTINE 
Tapeworm 


REGIONAL 


INSTRUCTION 

REMARKS 

ADDRESS 

53 

v2 

vl 

Move IOB word vj 


IT 


Vl 

Move tape forward(back) 1 block 


71 

v6 

v4 

Words Index +121 > a 


35 

h4 

hk 

Set hk for read 


23 

v2 

c24 

Reset IOB word for read 


17 


v2 

ContInue reading 


45 


h9 


pH 

17 


c23 

Set bias at normal and stop 


23 

hlO 

cl6 



23 

hll 

cl8 

> Reset BR exits 


23 

h8 

ell 



21 

vl 

c9 

Block counter ■ + 1 


56 

0 

pl2 

Stop 

pl2 

17 


v2 

Start reading 


45 


h5 


Pl5 

23 

vl 

c9 

Subtract 1 from index vl 


45 


p9 



cl 


1 


u address modifier 

c2 

14 

01000 

00000 

test constants for other 

c3 

14 

07000 

00000 

IP Instructions 

c4 

00 

00001 

77777 


c5 

00 

00000 

07777 


c6 

00 00036 

00000 | 

^ Masks 
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MAGNETIC TAPE INTERPRETIVE 




Tapeworm 

REGION REGIONAL 

ADDRESS 


INSTRUCTION 

c7 

00 

00000 

00007 

c8 

00 

00200 

00000 

c9 

00 

00000 

00001 

dO 

00 

00005 

65706 

ell 

00 

00000 

00167 

d2 

02 

00600 

00000 

d3 

d 

00000 

00000 

elk 


h7-h3 

cl5 



rk-h7 

d6 



p9-h3 

d7 



p2-pl 

d8 



Pl3-r3 

cl9 

23 

16000 

00000 

c20 

17 

00000 

C21-1 

c21 

02 

00001 

70000? 

c22 

02 

00001 

60000 

c23 

02 

00001 

50000 

c2k 

00 

00002 

00000 

Variable Storage 




v± 

00 

00000 

00000 

v2 

02 

00000 

00000 

v3 

00 

00000 

OQ167 

vk 

00 

00000 

00001 


ROUTINE 

REMARKS 

J 

Rewind digit 
v address modifier 

i 

Bit patterns for writing 
Constant for index v3 
Stop code 

To change hk from HV to ER 
Address increment for h5 
Address increment for h6 
Address increment for hlO 
Address increment for h8 
Address increment for hll 

To reset v5 

Bias change instruction 
Bias code for high 
Bias code for low 
Bias code for normal 
Forward - backward bit for v7 


IP instruction) index) new digit 
IQB word 

Block index ■ 119, 0 
C- 1 read back] direction change 





Page 8 


I 

MAGNETIC TAPE I N T ERPRETIVE ROUTINE 
Tape vo nn 


REGION 

REGIONAL 

ADDRESS 


INSTRUCTION 

REMARKS 


v5 

23 

16000 

00000 

Bit formation for IOA fault 


v6 

00 

00000 

00171 

Block size + 1 =» 121 


v7 

02 

00000 

00001 

IOB word for move 1 block 




Dear USE Members: 


There is an error in the Sqxiare Root Floating Point USE Routine 
issued by Remington Rand Univac in March 1956. 

The error apnears in the line labeled NOZERO. The correction 
to the line NOZERO should read; TP A Q, and the line NOZERO +1 
should read} QT B A 4129. 

Previously the line NOZERO read} TP A Q 4201. The first error 
here is that the 201 should have been written as decimal 129 
instead of the octal 201. The second error is that with the 
V Address reading as it did, the routine in effect always gave a 
result with a I in the sign bit position. This is due to the 
1103A Address assignment of 31,000 for Q. 

This routine is presently being revised and rewritten and will 
be resubmitted to USE shortly. 


Very truly yours, 


W. E. McVicar 



Executive Secretary, USE 
Remington Rand Univac 


Univac Park 


St. Paul 16, Minn. 


VEMjlps 




1. IDENTIFICATION RRF4, SQUARE ROOT-FLOATING POINT 

L. R. Turner, L. B. Kennedy <* Revised 1 May 1957 
Remington Rand Univac 

2. PURPOSE 

Given X, calculate l(X) = Vx" 1 , Floating Point 

3. METHOD 

a. Scaling of Argument: 1103A Floating Point Number. 

b. Accuraoy: |Y(X) -J £ '| <2in mantissa. 

c. Range of Arguments 2“*^ 2 ® < X < 2-^ 2 ® 

d. Derivation: an initial approximation followed by three iterations, 

X^ + ^ = -^(X^ + A/x^). The line of coding, EVEN, is used by itself 
as the constant A in forming the estimate, T(X;)q = —~—$ the 

u address of EVEN line of coding may have any value 00000 through 
77777. The biased characteristic of 1 is part of the v address 
of line N0ZER0+1, 

4. USAGE 

a. Calling Sequence 

LOC. OP. u ADDR. v ADDR. 

r RJ t+2 t 

r+1 Normal Return 

b. Control and Results 

The argument, X, must be initially stored at location t+3 and 
the function Y(X) will be found at t+4> and in A^. 

c. Space Required 

40 cells of instructions and constants 
2 cells of working storage 





-2. 


Rev. 

5A/57 

* 

d. Error Codes 

The following error code is left in the accumulator on return 
through the error exit. 

CODE EXPLANATION 

RRF4 • 2^ X is negative 

'. i *- ( * * . r V' V 

5. RESTRICTIONS 

Argument must be in 1103A floating point number representation: 
from left to right sign bit, eight bit biased (200b) characteristic, 
and normalized twenty-seven bit mantissa. The initial contents of the 
accumulator and Q-register are not restored at the completion of this 


routine• 

6. CODING INFORMATION 

a. Constants 

nxmw 

CONSTANT 

EXPLANATION 

CODE 

54 54310 70000 

Negative argument error code 

MASKM 

00 07777 77777 

Mantissa mask 

MASKC 

77 60000 00000 

Characteristic mask 

b. Working Storage 

2 cells labeled E 

c. Timing 

2.9 ms. maximum 

2.85 ms. average 

through E + 1 
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PROBLEM RRF4 

- 



CODED BY Turner and 

Kennedy DATE 1 Mav »57 (R«v.) 

LOC 

OP 

U 

V 

-Comments 



, SUB 

, RRF4 

, 40 

» 

1 


, TEMPS 

, 2 

» o 


* 


, IN OUT 

, 1 

, 1 

* 

» 

$ 

ENTRY 

, MJ 

» o 

, START 

i 

$ 

ERROR 

.» V 

, DIAG + 2 

, ' DIAG 

, ERROR EXIT 

$ 

EXIT 

, MJ 

» 0 

, FILL 

, SUCCESS EXIT 

$ 

I 

, 00 

, FILL 

, FILL 

, FUNCTION 

$ 

X 

, 00 

, FILL 

, FILL 

, ARGUMENT 

$ 

START 

, TP 

, x 

, A 

, ARGUMENT TO 

$ 


, TP 

» A 

, Y 

, A AND Y 

e 


, ZJ 

, NOZERO 

, EXIT 

, ZERO TEST 

$ 

NOZERO 

, TP 

» A 

, Q 

, X TO Q 

$ 


, QT 

, MASKM 

, A + 129 

, MASK MANTISSA 

$ 


, LTR 

, 8 

, E 

, MANTISSA TO E 

$ 


, QJ 

, NEG 

, NONEG 

, SIGN TEST 

$ 

NEG 

, SP 

, CODE 

» 0 

, ERROR CODE TO A 

* 


, MJ 

, o 

, ERROR 

, TO ALARM EXIT 

i 

NONEG 

, QT 

, MASKC 

, A 

, FORM 

$ 


, LTL 

, 8 

, A 

, AND 

$ 


, SA . 

, NOZERO + 1 

, 0 

, STORE 

$ 


, LQ 

, A 

, 35 

, CHARACTERISTIC 

t 


, LTR 

, 27 

, Y 

, IN Y 

$ 


» SJ 

, ODD 

, EVEN 

, PARITY TEST 

$ 

ODD 

* lq 

» E 

, 1 

t 

$ 

EVEN 

, SP 

, EVEN 

, 1 

, FORM AND 

$ 


1 
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ITEM NUMBER 

LOC 

OP 

U 


V 

COMMENTS 


t 


, SA 

, E 

> 

0 

, STORE 

1 

» 


, LTL 

, 31 

» 

E + 1 

, ESTIMATE 

1 

> 


, SP 

, E 

» 

28 

» 

$ 


1 

, DV 

, E + 1 

» 

A 

, 1ST ITERATION 

* 

> 


, AT 

, E + 1 

i 

E + 1 

> 

$ 

i 


, SP 

» E 

» 

30 


t 

» 


» dv 

, E + 1 

» 

A 

, 2ND ITERATION 

$ 

» 


» at 

, E + 1 


E + 1 

» 

$ 

i 

% 

, SP 

, E 

» 

32 

* 

$ 

» 


, DV 

, E + 1 

i 

A 

, 3RD ITERATION 

1 



, SA 

, E + 1 

> 

0 

» 

\ 

$ 

> 


, LTL 

» 28 

» 

E 

, MANTISSA TO E 

$ 

» 


, TP 

, MASKM 

» 

Q 

, MASK TO Q 

$ 

» 


, QS 

, E 

t 

Y 

, PACK UP Y 

$ 

» 


, MJ 

, o 

> 

EXIT 

» 

$ 

» 

CODE 

, B54 

, 54310 

t 

70000 

, ERROR CODE 

& 

t 

MASKM 

t B 

, 7777 

* 

77777 

, MANTISSA MASK 

$ 

* 

MASKC 

, B77 

, 60000 

> 

00000 

,CHARACTERISTIC MASK$ 

' o 

* 


ENDSUB 











PROGRAM WRITE-UP 



1. IDENTIFICATION SQUARE ROOT, STATED POINT 

A. E. ROBERTS, JR., M. D. BERNICK-MARCH, 1956 
REMINGTON-RAND UNIVAC 

2. PURPOSE 

Given x, this program calculates the square root of x. 

3. METHOD 

a. Accuracy: | Jx - F( X) | < 2"*^ 

b. Range of argument: 0-x , 2*^ < 2^ 

c. If l^x^2, then for suitable a, b. c and d, 

y=a(x+d)+b - c is an approximation of Vx7 
(x+d) 

One application of the Newton-Raphson Formula with proper round-off bias 
gives essentially 33-bit accuracy. 

4. USAGE 

a. Calling Sequence 

LOC. OP. u ADDR. v ADDR. 
r RJ t+2 t 

r+1 Normal return 

b. Control and results 

The argument is to be placed in the Accumulator and the function will 
be found in the Accumulator on return through the success exit. The 
argument is stored at t+3 and t+5 and the results at t+6 by the program. 

c. Space Required 

59 words including constants and working space. 



o 


V 





d. Error Codes 

These are left in the Accumulator on return through the error exit. 
CODE EXPLANATION 

% 

243512001001 X is negative 

5. RESTRICTIONS 


6. CODING INFORMATION 


a. 

Constants: 10 locations 

b. 

Working Storage: 

4 locations 

c. 

Timing: 3.00 ms 

max. 


2.14 ms 

min. 


o 




SQUARE ROOT, STATED POINT 

A. E. ROBERTS, JR., M.'.D. BERNICK-MARCH, 1956 
SPERRY-RAND, INC. 


LOCATION 

OPERATION u ADDRESS 

v ADDRESS 

EXPLANATION 

ENTRY. 

MJ 

0 

START 

Jump to the body of the program 

ERROR 

RJ 

DIAG+2 

DIAG 

Error exit to diagnostic routine 

EXIT 

MJ 

0 

FILL 

Success Exit 

X 

FILL 

FILL 

FILL 

Most significant part of argument 

XI 

FILL 

FILL 

FILL 

Least significant part of argument 

Y 

FILL 

FILL 

FILL 

Function 

START 

LT 

0 

X 

Store MSP of argument 


LT1 

0 

XI 

Store L.S.P. of argument 


SJ 

ERROR1 

NONEG 

Y Neg. 

noneg 

ZJ 

NOZERO 

EXIT 

Y Zero 

NOZERO 

SF 

A 

STORE 

Scale Factor 


SP 

A 

0 

(A l ) =0; (A r )=N; 2 34 ^N<2 35 


TP 

A 

STORE 1 

Store N 


SA 

B 

18 

(N+D) + 2 18 =F-*A r 


LT 

0 

STORE2 

Store F 


MP 

B1 

ST0RE3 

A.F —A r 


AT 

B2 

STORE4 

Store A*F+B 


SN 

B3 

15 

1=1 

-C*2 A 


DV 

STORE2 

A 

(-L-2 15 ) * F = -G-A r 


AT 

STORE 3 

STORE 

Store AF+B-G=Yj 


SP 

STORE1 

32 

N • 2 32 -*■ A 


ss 

STORE2 

0 

N*2 32 - Y x -> A 


o 





LOCATION 

OPERATION 

u ADDRESS 

v ADDRESS 

EXPLANATION 


DV 

STORE2 

A 

(N• 2 32 + Y } ) - 1 -^A r 


AT 

STORE2 

ST 0 RE 2 ; 

Store (N.2 32 t Y } ) - 1+Y 1 =Y 2 


LQ 

STORE 

35 

K 0 -^ ^ 35 : k 6 - • - K 1 ^5 - • -% 


QT 

B 6 

A 

(K-Kq) * 2->A r 


TV 

A 

RIFT 

Set up V portion of shift 


TP 

DONE 

PROG 

Set PROG for storage of result 


TP 

DONEl 

PR0G1 

Set PROG 1 for jump to exit 


TJ 

B4 

NOSCAR 

(K-K 0 ) * 2 < 19, jump 


TP 

SCAR 

PROG 

Reset for scale and round 


TP 

SCAR1 

PROGl 

I 

NOSCAR 

QJ 

RIFT 

KEVEN 

K odd, jump 

KEVEN 

UP 

B5 

ST0RE2 

2 34 yy. y 2 -> A 


SA 

B7 

1 

1/2v^Y 2 + l/2 -»A r 


LT 

0 

STOREL 

« 2 ^VN‘i ^ {0 ^ for k even 

RIFT 

SP 

ST0RE2 

FILL 

2 17 v / N-2 k_1 _ *’A 

PROG 

FILL 

FILL 

FILL 

37; exit 

PROG11 

FILL 

FiLL 

FILL 

K >37; round & scale down 

DONE 

TP 

A 

Y 

Store results 

DONEli 

MJ 

0 

EXIT 

Jump to exit 

SCAR 

SA 

B 8 

0 

Instruction for round and scale 

down 

SCAR 1 

LT 

0 

A 

/—- 

> 

ll 

o 

ERROR 1 

SP 

CODE 

0 

Error code into A R 


MJ 

0 

ERROR 


✓ 

B 

B 

264767031361 

D=24, 290, 062, 513 

B1 

o 

B 

65324 


A=27, 349 




LOCATION 

OPERATION 

u ADDRESS 

v ADDRESS 

EXPLANATION 

B2 

B 

114534644516 


B=10, 291, 988, 814 

B3 

B 

330657140271 


C-29, 104, 062, 651 

B4 

B 

23 


TJ constant 

B5 

B 

265011714640 


24. 296, 004, 000 

B6 

B 

77 


Mask for scale factor 

B7 

B 

200000000000 


to 

co 

B8 

B 

377777777777 


35 

- 1 

CODE 

B 

243512001001 



STORE 

0 

0 

FILL 


STORE1 

FILL 

FILL 

FILL 


STORE2 

FILL 

FILL 

FILL 


STORE3 

FILL 

FILL 

FILL 





PROGRAM WRITE-UP 


1. IDENTIFICATION SINE x, STATED POINT 

A. E. ROBERTS, JR., M. D. BERNICK - MARCH, 1956 
REMINGTON RAND UNIVAC 

2. PURPOSE 

Given x, this program computes Sine x. 

3. METHOD 

a. Accuracy 

b. Range of argument: |x| • 2 ^ 2 < 2^1 

c. Derivation is obtained from 

7 T „ TT_ 

sin 2 x ~ sin^ 4 (x- 1 ) 

TT_ 

Polynomial approximation for Sln 4 n as a function of 
2 " 

(-n) for -is nil is derived from the Chebyshev expansion: 

• — y k ^ 

sin 4 X - 2 ^ (- 1 ) J 2 k_i T 2 k-l (x - ) - 

o 

x is entered and multiplied by so that 

r J TT 

2 

—x = y. The routine then computes 
7r 

sin 2 y = sin x. 

4. USAGE 

a. Calling Sequence - Standard. 

b. Control and results 

The argument is to be placed in the accumulator; the function will 
be found in the accumulator upon completion of the routine. The 
routine also stores the argument in t+3 and t+4 and the function in 
t+5. 

c. Space required: 54 words including constants and working storage. 

d. Error codes - none. 




5. RESTRICTIONS 

6 . CODING INFORMATION 

a. Constants: 12 locations. 

b. Working Storage: 1 location. 

c. Timing 


>■'» 




SINE x, STATED POINT 

A. E. ROBERTS, JR. M. D. BERNICK - MARCH, 1956 
REMINGTON RAND UNIVAC 


LOCATION 

OPERATION 

u ADDRESS 

V ADDRESS 

entry 

MJ 

0 

START 

ERROR 

RJ 

DIAG+2 

DIAG 

EXIT 

MJ 

0 

FILL 

X 

FILL 

FILL 

FILL 

XI 

FILL 

FILL 

FILL 

Y 

FILL 

FILL 

FILL 

star:! 

LI¬ 

0 

X 


LT 1 

0 

XI 


DV 

B 

0 


MP 

A 

B1 


LT 

3 

Q 


TP 

PRO 

PROl 


QJ 

NEG 

POS 

NEG 

TP 

PR02 

PROl 

POS 

<?r 

B2 

A 


QJ 

20R4 

10R3 

10R3 

SS 

B3 

0 

20R4 

MP 

A 

Q 


SA 

B3 

0 


LT 

0 

A 


TN 

A 

STORE 


TU 

PR02 

PR03 


EXPLANATION 

Jump to body of program 

Error exit to diagnostic routine 

Success exit 

Most significant part of argument 
Least significant part of argument 
Function 

Store M.S.P. of argument 
Store L.S.P. of argument 
R.2 32 -*A; 0 < R <2 7r 
R-|r -2 67 = R } ' 2 6 ^> A 
Rj • 2 34 _> Q 

Set PR01 for positive function 
Test for positive or negative functio 
Reset PR01 for negative function 
Extract 2 33 - (x mod 1 )=2 33 x*-*Ar 
Test for quadrant 

I sin 2 X I =cos/2 (x^-l )• (x*-l )• 2^5 ->a 
2 70 (x*-l ) 2 -+ A 

Round & scale down [ 2 3 ^(x*-l )^+l/2 j 

-[2 34 (x*-1 ) 2 +i/ 2] =-N-^ST0RE 
Set u address of PR03 for i=0 





*» * 






• 

LOCATION 

OPERATION uADDRESS vADDRESS 

EXPLANATION 



TP 

B4 

0 

A^->Q, A 4 = Pq 


PR04 

MP 

0 

STORE 

With Pi in Q, i=0,1,2,3; -N-Pj->A 



SA 

B3 

0 1 

► Round & scale down [ -N* Pi • 2“ 38 +l/2] -*■ Ar 



LT 

0 

A J 


PR03 

AT 

FILL 

Q 

[A 3 - 1 -N* Pi-2-36 +i/ 2 ] =P i+1 Q 



RA 

PR03 

B5 

i+1-*• i in PR03 



TJ 

PR05 

PR04 

Test end point 



MP 

Q 

0 

P 4 «( 2 35 sin^y)+ y in Q-P^-*■ A 



SA 

&3 

* 1 

► Round & scale down 2 ~ 38 p 4 2 +l /2 Ap 



LT 

0 

A J 



MP 

A 

STORE 

-[2 _ 36 P 4 2 +l/2 ] -Nw-2 68 sin 2 ^y->A 



SS 

B 6 

37 

Round & scale down«-2 -33 sin 2 _ 4 y-*Ap 

o 

PRO 

TN 

A 

A 

« 2 32 2 sin 2 ^y -*■ A 



ST 

B7 

A 

rj 2 82 (2 sin^ ^y-l) ^ a 


PROl 

FILL 

FILL 

FILL 

For + function complement A 


PR06 

TP 

A 

Y 

Store function 



MJ 

0 

EXIT 

Jump to exit 


PR02 

MJ 

B 8 

PR06 

for - function, don’t complement A 


PR05 

AT 

B 6 

0 

End point test threshold. 


B2 

B 

377777777774 


Mask for (Q 34 • • • Q 2 ) 


B3 

B 

400000000000 


2 35 


B4 

B 

12265046 


A 4 = 2,714,150 


B 8 

B 

462621024 


A 3 = 80,421,396 



B 

12146566440 


A 2 = 1,369,107,744 



B 

122535716221 


Ai = 11,097,578,641 

• 








LOCATION 

OPERATION 

uADDRESS vADDRESS 

EXPLANATION 


B 

311037552420 

A 0 = 26,986,075,406 

B 6 

B 

200000000000 

2 34 

B7 

B 

40000000000 

2 32 

B5 

B 

100000 

Advance of u 

B 

B 

311037552421 

2 v x 2 32 

B1 

B 

242763015554 

2 /^ x 2 35 

STORE 

FILL 

FILL FILL 



o 




1. IDENTIFICATION RRF2, ARCTAN X STATED POINT 

P. Johnson, M. Bernick - Revised 15 Mey 1957 
Remington Rand Univac 

2. PURPOSE 

Given X, Compute Y(X) = arctan X 

3. METHOD 

a. Accuracyt |Y(X) - arctan X | < 2“ 23 

b. Range of Argument: |X |<1 

c. Scaling: X • 2 33 , Y(X) * 2 33 

d. Derivation: Y(X) is computed using the polynomial approximation 

given in Rand Sheet No. 13. 

V ADDR. 

t 

I 

The argument, X, must be initially stored at t+4) the result, 

Y(X), will be found at t+3, and in A^. 

c. Space Required 

54 cells of instructions and constants 
1 cell of working storage 

d. Error Codes 

The following error codes are left in the accumulator on return 
through the error exit. 


CODE 

EXPLANATION 

RRF2 • 2 12 + 1 

X < - 1 

RRF2 • 2 12 + 2 

X > 1 


Y(X)*»Z C X 2i+1 

i=l 

4. USAGE 

a. Calling Sequence 

LOC. OP. C ADDR. 

r RJ t + 2 

r+1 Normal Return 

b. Control and Results 






•2- 


REV. 

5/15/57 


5. RESTRICTIONS 

The argument must be in radians, within the stated range, and 
scaled 2 33 . 

6. CODING INFORMATION 


Constants 



LOC 

CONSTANT 

EXPLANATION 

B 

677777777777 

Lower limit on X: -2 33 

B1 

lOOOOOOOOOOl 

Upper limit on X: 2 33 + 1 

B2 

040000000000 

32 

2 for rounding 

B3 

573120142744 

°15 • 242 

B4 

263054507277 

°13 • z4 ° 

B5 

432774360726 

C n . 2^9 

B6 

305357575005 

C 9 • 2 38 

B7 

561447164514 

C 7 • 2 37 

B8 

314201226657 

C 5 • 2 37 

B9 

525263620355 

C^ • 2^ 

BIO 

377777723167 

C x • 2 35 

CODE 

545431050001 

Error code for X < -l 

CODE 1 

545431050002 

Error code for X >1 


b. Working Space 

1 cell labeled STORE 

c. Timing 

Average 3.19 mis. 


Maximum 3.2 mis 
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REMINGTON RAND UNIVAC PAG E 3 OF 

PROBLE M RRT2 


CODED BY Johiigor. Berrlck DATE REV Q _l$ . May 


ITEM NUMBER 

LOC 


OP 

U 

V 


COMMENTS 


9 


9 

SUB , 

RRF2 

54 

9 


$ 

9 


9 

TEMPS, 

1 

0 

9 


1 

9 


9 

INOUT, 

1 

1 

9 


•$ 

9 

ENTRY 

9 

MJ , 

0 

START 

9 


$ 

9 

ERROR 

9 

RJ , 

DIAG+2 

DIAG 

9 

ERROR EXIT 

$ 

9 

EXIT 

9 

MJ , 

0 

FILL 

9 

SUCCESS EXIT 

$ 

9 

Y 

9 

00 , 

FILL 

FILL 

9 

FUNCTION 

$ 

9 

X 

9 

00 , 

FILL 

FILL 

9 

ARGUMENT 

$ 

9 

START 

9 

TP , 

X 

A 

9 

ARGUMENT TO A 

$ 

9 


9 

TJ , 

B 

ERROR 1 

9 

TEST FOR 

$ 

9 


9 

TJ , 

B1 

OK 

9 

ARGUMENT OUT 

$ 

9 


9 

MJ , 

0 

ERROR 2 

9 

OF RANGE 

$ 

9 

OK 

9 

MP , 

X 

X 

9 

FORM ROUND AND 

* 

9 


9 

SA , 

B2 

3 

9 

STORE X SQRD 

$ 

9 


9 

LTL , 

0 

STORE 

9 

SCLD 33 IN TEMP 

$ 

9 


9 

MP , 

B3 

STORE 

9 


$ 

9 


9 

LTL , 

1 

A 

9 

EVALUATE 

$ 

9 


9 

AT, , 

B4 

Q 

9 


t 

9 


9 

MP , 

Q 

STORE 

9 

POLYNOMIAL 

$ 

9 


9 

LTL , 

2 

A 

9 


$ 

9 


9 

AT , 

B5 

Q 

9 

EXPRESSION 

e 

9 


9 

MP , 

Q 

STORE 

9 


$ 

9 


9 

LTL , 

2 

A 

9 

FOR 
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PAGE 4 OF_5 


ITEM NUMBER 

LOC 


OP 


U 

p 

0 y. 

f 

AT 

P 

B6 

p 


> 

MP 

P 

Q 

p 


P 

LTL 

P 

2 

p 


P 

AT 

P 

B7 

t 


P 

MP 

P 

Q 

p 


P 

LTL 

P 

3 

p 


P 

AT 

P 

B8 

p 


P 

MP 

P 

Q 

p 


P 

LTL 

P 

2 

p 


P 

AT 

P 

B9 

p 


P 

MP 

P 

Q 

p 


P 

LTL 

P 

2 



P 

AT 

P 

BIO 

p 


P 

MP 

P 

Q 

p 


P 

LTL 

P 

1 

p 


P 

TP 

P 

A 

p 


P 

MJ 

P 

0 

p 

ERROR 1 

P 

SP 

P 

CODE 

p 


P 

MJ 

P 

0 

p 

ERROR 2 

P 

SP 

P 

CODE 

p 


P 

MJ 

P 

0 

p 

B 

P 

B67 

P 

77777 


PROBLE M RPJF2 _ 

CODED B Y JohriSorj.Bemick DAT E Rev.l5Mey * 57 


V COMMENTS 

Q , $ 

STORE , ARCTAN X $ 

A , * 

q , By $ 

STORE , $ 

A , NESTING $ 

Q , t 

STORE , METHOD $ 

A , $ 

Q , $ 

STORE , $ 

A , $ 

Q , $ 

X , $ 

A , $ 

Y , STORE FUNCTION $ 

EXIT , TO SUCCESS EXIT $ 

0 , ERROR CODE TO A $ 

ERROR , TO ERROR EXIT $ 

0 , ERROR CODE TO A $ 

ERROR , TO ERROR EXIT $ 

77777 , LOWER LIMIT $ 
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PROBLE M RRF2 _ 

CODED B Y Johnson. Bernlck DAT E REV. 15 Mav *57 


ITEM NUMBER 

LOC 

OP 


U 


y v 


COMMENTS 


t 

B1 

BIO 

9 

00000 

9 

00001 

9 

UPPER LIMIT 

Z 

9 

B2 

B04 

9 

00000 

9 

00000 

9 

ROUND BIT 

Z 

9 

B3 

B57 

9 

31201 

9 

42744 

9 

C15 SCLD 42 

z 

9 

B4 

B26 

9 

30545 

1 

07277 

> 

C13 SCLD 40 

z 

9 

B5 

B43 

9 

27743 

9 

60726 

» 

Cll SCLD 39 

z 

9 

B6 

B30 

r 

9 

r "53575 

9 

75005 

f 

C9 SCLD 38 

z 

9 

B7 

B56 

9 

14471 

9 

64514 

9 

C7 SCLD 37 

z 

9 

B8 

B31 

9 

42012 

9 

26657 

9 

C5 SCLD 37 

z 

9 

B9 

B52 

9 

52636 

9 

20355 

9 

C3 SCLD 36 

z 

9 

BIO 

B37 

9 

77777 

9 

23167 

9 

Cl SCLD 35 

z 

9 

CODE 

B54 

9 

54310 

9 

50001 

9 

ERROR 

z 

9 

CODE 1 

B54 

9 

54310 

9 

50002 

9 

CODES 

z 

9 


ENDSUB 

9 


f 


9 


z 









BAT001 PRII'JT - OFF-LEE - STATED DEC DIAL DATA 
by D I Cook, Boeing Airplane Co, Dec 1956 


A PURPOSE 


The purpose of this program is to prepare a magnetic tape on 
the 1103A computer to print a block of consecutive words of 
memory as statsd decimal data on the IJnivac High Speed Printer. 
The information is written on Uniservo number two in the fixed 
block mode. 

B METHOD 

She data to be printed are scaled to proper binary fractions 
(with the binary point between the sign and the most signif¬ 
icant bits) from the scaling information supplied by the 
programmer as control information. Repeated multiplication 
by ten is performed on the scaled :rord to obtain successive 
decimal digits. The decimal point is inserted in th® appro¬ 
priate position and a minus sign is inserted after the least 
significant digit if the word is negative. Zeros preceeding 
the most significant digit are not converted to XS3 code and, 
hence, are not printed by the high speed printer. 

Each column to be printed may contain twelve characters 
including the decimal point and sign. If the word is too large 
to be printed in the form indicated by the scaling information 
the decimal point is shifted to the right and the low order 
digits are truncated. An eleven digit integer is printed 
without a decimal point. 

A “Fast Feed I" symbol is inserted as the first character of 
the first blockette and every sixtieth blockette causing the 
data to be printed at 6o lines per page. A "Printer Stop" 
symbol is inserted as the first character of the blockette 
immediately following the last blockette to be printed in 
order to stop the printer after completing the printing. 

C USAGE 

1, The following instruction is written by the programmer to 
enter this program where "t" is the location of the first 
instruction of this program and "r" is a location in the 
main program: 


Loc 

Op 

U 

V 

Explanation 

r 

RJ 

t+2 

t 

Jump to the first instruction of 
this program. 

r+1 




Control is returned to this location 
following the successful execution 
of this program. 


BAC 1546 l R3 
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C USAGE (cont'd) 


2. The following control data must be stored within this 
progran prior to transferring control to location t. 


Loc Op U V Explanation 

t+3 N L M Ebrmat Control. N is the number of 

columns to be printed where 0*N*8. 

L is the location of the first data 
word to be printed. It is assumed 
that successive wordB are in con¬ 
secutive locations. 

M is the number of lines to be 
printed and must be chosen such that 
L+M-N is a legal storage location. 

t+li “ % Scale Indices. D* is the number of 

t+5 - n 2 Bg decimal places to oe printed to the 

t+6 - Do Bo right of the decimal point for all 

. . . data in the ith column where 0*Dj*10. 

. . . is the number of binary places to the 

. . . right of the binary point for all data 

t+11 - Dg Bg to be printed in the ith column 

where 0^3 n - *35 

3. When using this program Uniservo number two must be ready 
to receive written information. The tape is not rewound 
before or after printing so that additional information 
may be written on the tape. 

It. The following is the normal storage assignment for this 
program. It should be noted that this assignment may be 
altered by the compiler. 


Location 

Number 

of words 

Oct 

Dec 

Oct 

t 

301 

U55 

t 

168 

250 

t 

1U3 

217 

t+217 

25 

31 

t+250 

133 

205 


Total Program t t 301 U55 

Without Erasable Storage t t 168 250 

Subject to Address Mod. t t llt3 217 

Program Constants t+li-3 t+217 25 31 

Erasable Storage t+168 t+250 133 205 

5. No error checks are made vrithin this program and no error 
codes are used. Failure to comply with the restrictions 
imposed on the Format Control Word in location t+3 may 
re stilt in an I3CT fault. 
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C USAGE (cont’d) 


6. The printed format produced by this program consists of 
N columns of 12 characters each with 3 blank spaces 
between columns. The 12 characters within a column 
consist of 10 (or less) decimal digits, a decimal point 
and a minus sign (if the number is negative) or a blank 
space (if the number is positive). Eleven digit integers 
are printed without a decimal point and the 12 characters 
then consist of 11 decimal digits and a minus sign or a 
blank space. 

D RESTRICTIONS 

1. This program will operate on the standard "minimum 1103A" 
computer as established by USE. 

2. This program is self-contained and no other programs 
are used. 

3. This program will print data contained anywhere in the 
addressable memory of the computer other than that space 
occupied by the program itse3f. The data are assumed to 
be in stated binary form in consecutive memory locations. 

h. The tape produced by this program is in fixed block form 
in blockettes of 120 characters each and a density of 
128 lines per inch suitable for printing on the Univac High 
Speed Printer. 

5. The standard USE 120-120 printer board is used to print the 
data from the tape. 

E CODING INFORMATION 

1. This program uses 133 words of erasable storage. In normal 
usage this block of erasable storage begins with location 
10 (t+l68) - g(t+250). 

2. This program will write a printer tape at approximately 
ii.00 blockettes per minute. 
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B ft -TOC 1 "3PINT - OFF-L T N p - STATED OPTIMAL DAt/> 
T U T S IS A tJ c E PROGRAM 


f I V ED M LOC * 



♦ P 

» ♦ *■ 1 



f p 

.♦f71b^9^C6515 


t y 

. * i 4 * . 0 



« X 

. * 25*0 



f X 

• ♦ ! 3 « • 0 



• x 

♦ * o # c 



f Y 

. » 0 . o 


FNTRv 

* M J 

«C 

• 2 A 

FRROR 

.RJ 

«P T AG* 2 

•0 TAG 

f v t r 

i MJ 

* 0 

-p ILL 

CTRL 

• PILL 
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USE Subroutine 


I. Identification 

R-W EXP-2, Stated point Exponential, Malcolm Perry, 

22 March 1956 - Ramo-Wooldridge Corporation 

II. Purpose 

15 15 x 

Oiven 2 x this routine computes 2 e . 

III. Accuracy, Range, Method 

_o 5 

a. Truncation error of the polynomial is < 2 . 

b. Range. -(ln2) (2 35 +2 -1 ) < x <3^.5 ln2 

c. Method. The routine finds q, an integer such that 

x = q (ln2) + r 
where |r | ^ ln2 

This gives e X = *e r = 2^*e r = (2^ + ^)« (e r ) 

2 

Since the factor 2 q - +1 is easily applied by shifting, it 

is only necessary to calculate the quantity e /2. This 

is accomplished by a 7th order approximating polynomial 

where the domain of r is 

- In2 < r < ln2 
2 ^ ^ 2 

This polynomial was obtained with the aid of routine CVP-O. 
The coefficients of the polynomial are listed in the 
accompanying code listing. The maximum discrepancy 

between the function e /2 and the polynomial, in the 

-75 

interval stated above, is .75 x 2 . 

X 

The error in the machine's approximation to e is bounded 
in all cases by 

,[(11.3 + .7 | x | ) e X + l] -2" 35 




That Is 


(A) f - e X -2 35 < (11.3 + .7 |x | ) e X + 1 
Most of the error is due to round-off within the routine. 
The actual error is usually less than the bound stated 
here. 

IV. Usage 

a. Calling sequence 


LOC 

OP 

u 

V 

r 

RJ 

t+2 

ti>: 

r+1 

Normal 

return 



b. Control and Results 

2 J x must be in A upon entry to the routine; 2 e is 
left in A upon normal return. 

c. Space required 

28 instructions, 15 constants, 3 temporaries 

d. Alarm conditions 

If x falls in the interval 

34.5 (ln2) < x < (ln2) (2 35 - 2 _1 ) 
then the alarm routine is entered. This alarm condition 



and, hence, in terms of the scaled result 
e x -2 35 >t 2 69 ' 5 


This value will nearly overflow in A and therefore becomes 


an upper limit. 

For x ^ - (ln2) (2 35 + 2 _1 ) 
or x ^ (ln2) (2 3 ^ - 2 


a divide overflow will occur at cell EX03 of the subroutine. 




V. Except for the limits on x, there axe no restrictions on the use 
of this' routine. 

VI. Coding Information 


Constants 


LOC 

CONSTANT 

+28 

(£ln2)2 3i| 

+29 

(ln2)2 35 

+38 

36 

+39 

2^ 

+4o 

6 

+41 

1 





R» EXP-2 
3-26-56 


EXOO 

MJ 

00000 

0EX03 



EXO1 

00 

00000 

00000 

\ 


EX02 

MJ 

00000 

00000 



EX03 

AT 

1 EXOO 

AOOOO 

HLF LN 2 


EX04 

DV 

1 EXO 1 

2EX00 

LN 2 EXP 

1 

EXO 5 

ST 

1 EXOO 

QOOOO 

ARG 

35 

EX06 

TP 

1EX02 

2EX01 

C 7 

34 

EX07 

TU 

0EX06 

0EX12 



EX08 

TP 

1EX12 

2EX02 

INDEX 


EX09 

RA 

0EX12 

1EX11 



EX 10 

MP 

QOOOO 

2EX01 


69 

EX11 

LT 

00001 

AOOOO 


34 

EX 12 

AT 

00000 

2EX01 



EX13 

I J 

2EX02 

0EX09 



EX 14 

RA 

2EX00 

1EX13 



EX15 

SJ 

0EX22 

0EX16 



EX 16 

TJ 

1EX10 

0EX19 



EX17 

TP 

1 EX 14 

00000 

ALARM TAG 


EX18 

MJ 

00000 

0EX01 



EX19 

TV 

AOOOO 

0EX20 



EX20 

LA 

2EX01 

00000 



EX21 

MJ 

00000 

0EX02 



EX22 

SA 

1EX10 

00000 

36 


EX23 

SJ 

0EX26 

0EX24 



EX24 

TV 

AOOOO 

OEX25 



EX25 

LA 

2EX01 

00000 

36 LESS EXP 

EX26 

LT 

00000 

AOOOO 



EX27 

MJ 

00000 

0EX02 




RW EXP-2 
3-26-56 


1EX00 

06 

93147 

18056 -01 

34 

HALF LN 2 

1EX01 

06 

93147 

18056 -01 

35 

LN 2 

1EX02 

01 

99243 

65600 -04 

34 

C7 

1EX03 

01 

39485 

76760 -03 

34 

C6 

1EX04 

08 

33324 

84740 -03 

34 

C5 

1EX05 

04 

16662 

18354 -02 

34 

C4 

1EX06 

01 

66666 

66994 -01 

34 

C3 

1EX07 

05 

00000 

01077 -01 

34 

C2 

1EX08 

09 

99999 

99997 -01 

34 

Cl 

1EX09 

09 

99999 

99996 -01 

34 

CO 

1EX10 

00 

00000 

00036 



1EX11 

00 

00001 

00000 



1EX12 

00 

00000 

00006 



1EX13 

00 

00000 

00001 



1EX14 

00 

00000 

00000 


ALARM TAG 




USE Subroutine 


I. Identification 

R-W TNI-1, Floating point Arctangent, Malcolm Perry, 

20 March 1956, Ramo-Wooldridge Corporation. 

II. Purpose 

Given x in floating point this routine computes arctan x in 
floating point. 

III. Accuracy, Range, Method 

-25 

a. The magnitude of the error is < 2 

b. Any x expressible in floating point is permitted. 

c. Method. If x >1, the identity arctan x = 7T/2 - arctan 
l/x is used. Rand Polynomial 13 is evaluated using x or 
l/x. 

IV. Usage 

a. Calling sequence 


LOC 

OP 

u 

V 

r 

RJ 

t+2 

t 

r+1 

Normal 

return 



b. Control and Results 

x in floating point must be in A upon entry; arctan x 
in radians in floating point will be in A upon return. 

c. Space required. 

k6 instructions, 18 constants, 5 temporaries 

d. There are no alarm conditions. 




V. Coding Information 


Constants 


LOC 

CONST AM 1 

+46 

2 3 ^ 7T/2 

+55 

00 07777 77777 

+5 6 

37 70000 00000 

+60 

6 

+61 

2 2 ? 

+62 

2 15 

+63 

2 16 






RW TNI-1 
3-26-56 


TOO 

MJ 

00000 

00T03 

ENTRY 

TO 1 

00 

00000 

00000 

ALARM EXIT 

T02 

MJ 

00000 

00000 

NORMAL EXIT 

T03 

TP 

00T45 

00T44 

ASSUME POS 

T04 

SJ 

00T05 

0OTO6 


T05 

TP 

00T13 

00T44 

IF NEGATIVE 

T06 

TM 

A 0000 

QOOOO 


T07 

QT 

01T09 

02 TO 1 

MANTISSA 

T08 

CC 

02T00 

AOOOO 

CLEAR SUM 

T09 

QT 

0 1 T10 

02T02 

EXP PLUS 200 

T10 

LT 

00009 

AOOOO 


Til 

ST 

01T 11 

QOOOO 

LESS 201 

T12 

SJ 

00T16 

00T13 


T13 

TN 

AOOOO 

AOOOO 


T14 

TP 

0 1 TOO 

02 TOO 

PI OVER 2 

T15 

TP 

0 1T 1 2 

02T02 

EXP 200 

T16 

SA 

0 1T 13 

00000 

PLUS 36 

T1 7 

SJ 

00T27 

00T18 


T1 8 

QJ 

00T19 

00T23 


T19 

TV 

AOOOO 

00T20 


T20 

SP 

02T01 

00000 


T21 

LT 

00000 

QOOOO 

X FIXED 26 

T22 

MJ 

00000 

00T26 


T 2 3 

TV 

AOOOO 

00T24 


T 24 

SN 

01T17 

00000 


T 2 5 

DV 

02T01 

02 T 01 

RECIP X 26 

T26 

MP 

QOOOO 

QOOOO 


T 2 7 

LT 

00014 

QOOOO 

SQUARED 30 



RW TNI-1 
3-26-56 


T28 

TP 

0 1 TO 1 

02T04 


C15 


T29 

TU 

00T28 

00T32 




T 30 

TP 

01T 14 

02T03 




T31 

RA 

OOT32 

01T 16 




T 32 

LA 

00000 

20025 


C 

60 

T 33 

MA 

QOOOO 

02T04 




T 34 

LT 

00006 

02T04 


PARTL ANS 

30 

T 3 5 

I J 

02T03 

00T31 




T 36 

SP 

02 TOO 

00023 


PREV SUM 


T 37 

MA 

02 TO 1 

02T04 


RAND SUM 

57 

T 38 

LT 

00006 

QOOOO 


FINL MANT 

26 

T 39 

LT 

00001 

AOOOO 


FINL MANT 

27 

T40 

TJ 

01 T1 5 

00 T 43 




T41 

RA 

02T02 

01 T 15 




T 42 

TP 

QOOOO 

AOOOO 


FINL MANT 

26 

T 43 

CC 

AOOOO 

02T02 




T 44 

tn 

AOOOO 

AOOOO 


IF NEG 


T45 

MJ 

00000 

00 T 02 


OUT 


TOO 

01 

57079 

63268 

34 

PI OVER 2 


TO 1 

-4 

05405 

80000 -03 

30 

C15 


T02 

02 

18612 

28800 -02 

35 

C13 


T03 

-5 

59098 

86100 -02 

35 

Cll 


T04 

09 

64200 

44100 -02 

35 

C9 


T05 

-1 

39085 

33510 -01 

35 

C7 


T06 

01 

99465 

35990 -01 

35 

C 5 


TO 7 

-3 

33298 

56050 -01 

35 

C3 
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1T08 

09 

99999 

33290 

-01 

35 Cl 

1T09 

00 

07777 

77777 

B 

MANTISSA MSK 

1T10 

37 

70000 

00000 

B 

EXP MASK 

ITU 

00 

00000 

00201 

B 


1T12 

20 

00000 

00000 

B 


1T1 3 

00 

00000 

00044 

B 


1 , 14 

00 

00000 

00006 

B 

INDEX 

1T15 

00 

10000 

00000 

B 


1 T16 

00 

00001 

00000 

B 


1T17 

00 

00002 

ooooo 

B 


2 TOO 

00 

00000 

00000 


SUM 

2 TO 1 

00 

00000 

ooooo 


FLOATNG ARG 

2 TO 2 

00 

00000 

ooooo 


EXP 

2 TO 3 

00 

00000 

ooooo 


INDEX 

2 T04 

00 

00000 

ooooo 


TEMP 




USE Subroutine 


I. Identification 

R-W EXP-3, Floating point exponential, Malcolm Perry, 

23 March 1956, Ramo-Wooldridge Corporation 

II. Purpose 

Given x in floating point this routine computes e in 
floating point. 

III. Accuracy, Range, Method 

x -26 

a. For X ^2, the error in e is less than 2 , for X 2, 

the error in e x is less than 2 ^^'^ where E is the 
binary power of X. 

b. Range, x < .693 x 2^. If x < - .693 x 2^, the 
answer will be zero. 

c. Method. 

1. e x . (2' 129 ) . 2 *(l°g 2 e+129) 

2. Divide (X-logg* + 129) into an integral part R and 
a fractional part S. By the necessary limitations 
on X, R^O, G^S < 1 

3. e x = (2 B_129) (2 S ) 

. (2 B - 128 >(2 S ) 

2 

g 

4. 2 is evaluated using the Rand Polynomial Approximation 
number 20.(2^ = 10^1°®10^) 

5. Since 0 $ S < 1 ,1 $ 2 S < 2 

1/2 $ 2 S /2 < 1 

R-128 is the characteristic of the answer in floating 

g 

notation, and 2 is the mantissa. 

2 


6 . 






IV. Usage 


a. Calling sequence 



LOC 

OP 

u 

V 

r 

RJ 

t+2 

t 

r+1 

Normal 

return 



b. Control and. Results 

The argument x In floating point must be in A 
x 

e in floating point is left in A upon normal 

c. Space required 

43 instructions, 19 constants, 3 temporaries 

d. Alarm conditions 

The alarm exit is used if x falls outside the 
permissible range. 

V. No restrictions 

VI. Coding Information 

a. Constants 


LOC 

CONSTANT 


+44 

2 35 ln2 


+45 

2 3 ^ |ln2 


+53 

2 34 


+54 

40 07777 

77777 b 

+55 

37 70000 

00000 b 

+56 

00 00000 

00170b 

+57 

00 00000 

1 

8 

0 

+58 

6 


+59 

2 15 


+60 

2 27 


+61 

43 



upon entry; 
return. 
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EOO 

MJ 

00000 

00E03 

ENTRY 


EOl 

00 

00000 

ooooo 

ALARM 

EXIT 

E02 

MJ 

00000 

00000 

NORMAL 

EXIT 

E0 3 

TP 

AOOOO 

QOOOO 



E04 

QT 

01E10 

02E00 

MANTISSA 

EO 5 

QT 

01E11 

02E01 

EXPONENT 

L06 

QJ 

00E07 

00E09 



E07 

CC 

02E00 

01E11 



E08 

CC 

02E01 

01E11 



E09 

LT 

00009 

AOOOO 



ElO 

ST 

01E12 

QOOOO 

E PLUS 

8 

Ell 

TJ 

01E17 

00E13 



E12 

MJ 

00000 

00E34 



E13 

SJ 

00E14 

00E16 



E14 

SA 

01E13 

OOOOO 



El 5 

SJ 

00E23 

00E16 



E16 

TV 

AOOOO 

00E17 



E17 

LA 

02 EOO 

OOOOO 



E18 

QJ 

00E19 

00E20 



E19 

LT 

00000 

AOOOO 

MANTISSA 35 

E20 

AT 

01E01 

OOOOO 

HLF LN 

2 

E21 

DV 

01E00 

02E01 

LN 2 


E22 

ST 

01 EOl 

QOOOO 

HLF LN 

2 35 

E23 

TP 

01E02 

02E00 

C7 

34 

E24 

TU 

OOE23 

00E29 



E25 

TP 

01E14 

02E02 

INDEX 


E26 

RA 

00E29 

01E15 



E27 

MP 

QOOOO 

02E00 


69 
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E28 

LT 

00001 

AOOOO 




34 

E29 

AT 

00000 

02E00 




34 

E30 

IJ 

02E02 

00E26 





E31 

LA 

02E01 

20027 





E32 

AT 

01E09 

QOOOO 





E33 

EJ 

AOOOO 

00E36 





E34 

TP 

01E18 

00000 


ALARM 

TAG 


E35 

MJ 

00000 

00E01 





E36 

SP 

02E00 

00028 





E37 

LT 

00000 

02E00 




27 

E38 

LT 

00001 

AOOOO 




28 

E39 

TJ 

01E16 

00E42 





E40 

RA 

QOOOO 

01E16 





E41 

TP 

02 EOO 

AOOOO 





E42 

AT 

QOOOO 

AOOOO 


PACK 



E43 

QJ 

00E34 

00E02 


CHECK 

EXP 


1EOO 

06 

93147 

18056 -01 

35 

LN 2 



1E01 

06 

93147 

18056 -01 

34 

HLF LN 

2 


1E02 

01 

99243 

65600 -04 

34 

C7 



1E03 

01 

39485 

76760 -03 

34 

C6 



1E04 

08 

33324 

84740 -03 

34 

C5 



1E05 

04 

16662 

18354 -02 

34 

C4 



1E06 

01 

66666 

66994 -01 

34 

C3 



1E07 

05 

00000 

01077 -01 

34 

C2 



1E08 

09 

99999 

99997 -01 

34 

Cl 



1E09 

20 

00000 

00000 B 


CO 




f 
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1E10 

40 

07777 

77777 

B 

MASK 

1 El 1 

37 

70000 

00000 

B 

MASK 

1E12 

00 

00000 

00170 

B 


1E13 

00 

00000 

00044 

B 


1E14 

00 

00000 

00006 

B 


1E15 

00 

00001 

00000 

B 


1E16 

00 

10000 

00000 

B 


1 El 7 

00 

00000 

00053 

B 


1E18 

00 

00000 

00000 


ALARM TAG 

2EOO 

00 

00000 

00000 


MANTISSA 

2E01 

00 

00000 

ooooo 


EXPONENT 

2E02 

00 

00000 

00000 


INDEX 





PROGRAM WRITE-UP 


1. IDENTIFICATION ARCSINE X, STATED POINT 

A. FRANCK, M.D. BERNICK - MARCH 1956 
REMINGTON-RAND UNIVAC 

2. PURPOSE 

Given x, this program computes Arcsine x. 

3. METHOD 

a. Accuracy = jarcrin x^F (x) |< 

b. Range of argument: | (x) | < 1 

c. F(x) = aresin x is computed in radians from the polynomial 
approximation 

aresin x« 17 / 2 -J 1-x £ a { x 1 , The square root is 

i=o 

computed by an approximation and one application of the Newton- 
Raphson Formula. 

4. USAGE 

a. Calling Sequence 

Lou. OP u ADDR . v ADDR . 

r RJ . t+2 t 

r+1 Normal Return 

b. Control and Results 

The argument is to be placed in the Accumulator and the 
function will be found in the Accumulator. The program also 
places the argument in t+3 and the function in t+4. 

c. Space Required: 109 locations including constants and working 


storage. 





d. Error Codes 
CODE 


EXPLANATION 
301224060001 | x | > | 

5. RESTRICTIONS 

6. CODING INFORMATION 

a. Constants: 22 locations 

b. Working Storage: 7 locations 

c. Timing 



• 



ARCSINE x, STATED POINT 

A. FRANCK, M.D. BERNICK - MARCH, 1956 

REMINGTON-RAND UNIVAC 


LOCATION. 

OPERATION. 

uADDRESS 

. vADDRESS. 

EXPLANATION 


ENTRY 

MJ 

P 

START 

Jump to body of program 


ERROR 

RJ 

DIAG+2 

DIAG 

Error exit to diagnositc routine 


EXIT 

MJ 

P 

FILL 

Success exit 


X 

FILL 

FILL 

FILL 

Argument 


Y 

FILL 

FILL 

FILL 

Function 


START 

TP 

A 

X 

Store argument 



TM 

A 

A 

|x|-2 33 -> A 



TJ 

B21 

PROG 




MJ 

P 

ERROR1 

U | > 1 


PROG 

TP 

A 

Y 


o 


ZJ 

NOZERO 

EXIT 

x=0 


NOZERO 

TP 

A 

STORE 

Store |x| 



TP 

X 

A 

x -> A 



TP 

Bl 

STORE1 

Preset STORE1 for sign determination 



SJ 

NEG 

POS 



NEG 

TP 

B2 

STORE1 

Reset STORE1 for negative argument 



TM 

A 

A 

M-* A 


POS 

EJ 

B 

XONE 

i*i=i 



MP 

STORE 

B3 

O 77 

a > x*2 



LT 

1 

A 




AT 

B4 

STORE2 

(STORE2)=(a 7 x+a 6 )-2 42 



MP 

STORE 

STORE2 


• 


LT 

1 

A 






LOCATION. OPERATION. 

uADDRESS. 

vADDRESS. 

EXPLANATION 

AT 

B5 

STORE2 

(a 7 x 2 + a 6 x+a 5 ) *2 40 

HP 

STORE 

STORE2 


LT 

3 

A 


AT 

B 6 

STORE2 

(ayX 3 +*•*+a^). 2 ^® 

MP 

STORE 

STORE2 


LT 

2 

A 


AT 

B7 

STORE2 

(a-^x^P* • *+ao) * 2 3 ^ 

MP 

STORE 

STORE2 


LT 

2 

A 


AT 

B 8 

STORE2 

(a 7 x 5 +...+a 2 )’ 2 38 

MP 

STORE 

STORE2 


LT 

2 

A 


AT 

B9 

STORE2 

( 37 x 6 +...+aj)* 2 37 

MP 

STORE 

STORE2 


LT 

t> 

A 


AT 

BID 

STORE2 

(a 7 x 7 +...+a 0 ). 2 34 

TN 

STORE 

A 

(A)=~x*2 33 

SA 

B 

P 

(A) = (l-x) -2 33 

SF 

A 

STORE3 

Scale factor 

SP 

A 

P 

(A1)=0; (Ar)=N;2 34 < n< 2 35 

TP 

A 

STORE4 

Store N 

SA 

Bll 

18 

[(N+D)]f 2 16 = F -> A 

LT 

P 

STORE5 

Store F 

MP 

B12 

STORE5 

A.F -*■ A r 

AT 

B13 

STORE 6 

Store A.F+B 

SN 

B14 

15 

-C*2^ 5 -» A 




0 

• 

LOCATION. 

OPERATION. 

DV 

uADDRESS. 

STORE5 

vADDRESS. 

A 

EXPLANATION 

(-C. 2 15 )-F=-G A r 



AT 

ST0RE6 

STORE5 

Store AF+B-G=Y^ 



SP 

ST0RE4 

32 

N.2 32 A 



SS 

STORE5 

0 

N-2 32 Yj A 



DV 

STORE5 

A 

(N*2 32 -*Y 1 )-1 A r 



AT 

STORE5 

STORE5 

Store (N*2 32 * Yi)” 1 + Yj = Y 2 



LQ 

STORE3 

35 

Ko Q35.K6...K1...Q5...QO 



QT 

B17 

A 

(K-Ko) t 2 -*• A[{ 



TV 

A 

RIFT 

Set up V part of shift 


• 

TP 

DONE 

PROG1 

Set PROG1 for storage of results 



TJ 

B15 

NOSCAR 

(K-Ko) 7 2 < 19, jump 



TP 

SCAR 

PROG1 

Reset PROG1 for scale and round 

o 

NOSCAR 

QJ 

RIFT 

KEVEN 

K odd, jump 


KEVEN 

MP 

B16 

STORE5 

2 34 yr • Y 2 -*> A 



SA 

B16 

1 

1/2 VT • y 2 +i/2 A r 



LT 

f> 

ST0RE5 

« 2 17 v / N*2 ko ** 1 for K even 


RIFT 

SP 

STORE5 

FILL 

2 17 VN*2 k " 1 ^ A 


PROG1 

FILL 

FILL 

FILL 

K<37, exit; K > 37, round & scale 



LT 

P 

A 



DONE 

MJ 

P 

PROG2 



SCAR 

SA 

B19 

0 



PROG 2 

MP 

A 

STORE 2 

1-x X(x)- 2 67 



LT 

2 

A 

1-x X(x)-2 33 



ST 

B20 

0 

(Q)=(c-arcsin X)* 2 33 


PROG3 

IJ 

STORE1 

NEG1 

x neg, jump 

• 


TN 

0 

A 




Tf 

A 

y 






• 

LOCATION. 

OPERATION. 

uADDRESS. vADDRESS. 

EXPLANATION 

W 

MJ 

jfl EXIT 

Jump to exit 


XONE 

TN 

B20 Q 

x=l;- *2 33 -> 0 



MJ 

f) PR0G3 



ERROR1 

SP 

CODE A 

Enter error code in A 



MJ 

P ERROR 

Jump to error exit 


B 

B 

lOOOOOOOOOOO 

233 


BI 

B 




B2 

B 

1 



B3 

B 

532413520070 

ay 44 


B4 

B 

332441425535 

a 6 42 


B5 

B 

564007151545 

85 40 


B6 

B 

370417441233 

40 

o 

B7 

B 

462370666522 

a 3 39 

B8 

B 

266165166073 

a 2 38 


B9 

B 

444200330653 

3l 37 


BIO 

B 

311037551633 

ao 34 


Bll 

B 

264767031361 

D=24,290,062,513 


B12 

B 

65324 

A=27,349 


BI3 

B 

114534644516 

B-10,291,988,814 


B14 

B 

330657140271 

0=29,104,062,651 


B15 

B 

23 

TJ constant 


B16 

B 

265011714640 

24,296,004,000 


B17 

B 

77 

Masic for SF 


B18 

B 

200000000000 

234 


B19 

B 

377777777777 

2 35 -l 

o 

B20 

B 

144417665210 

JL .2 33 

2 





LOCATION. OPERATION. uADDRESS. vADDRESS. 


B21 

B 

lOOOOOOOOOOl 

CODE . 

B 

301224060001 

STORE 

FILL 

FILL 

FILL 

STORE1 

FILL 

FILL 

FILL 

STORE2 

FILL 

FILL 

FILL 

STORE 3 

FILL 

FILL 

FILL 

STORE 4 

FILL 

FILL 

FILL 

STORE5 

FILL 

FILL 

FILL 

STORE6 

FILL 

FILL 

FILL 


EXPLANATION 





RW SIN-4 

5/15/56 


USE Subroutine 


I. Identification: RW SIN-4, Floating Point Sine-Cosine 

Routine 

Malcolm Perry, April, 1956 

Ramo-Wooldridge Corporation 
Los Angeles 45, California 

II. Purpose: t 

Given x in floating point form, this program calculates sine x if 
the parameter word is zero or cosine x if the parameter word is 
non-zero. 

III. Accuracy, Range, Method: 

a. Sine x or cosine x is computed to 26 binary places of accuracy, 

or to as many correct bits as there are in the fractional portion 

of the argument , whichever is less. 

27 

When x^2 , this routine substitutes zero for the argument. 

The alarm exit is not used. 

b. x may be any floating point number. 

c. The Rand Polynomial Approximation Number 16 is used to calculate 
sin x or cos x. 

1. Let y = (2/n)x, then sine x = sin (jt/2)y 

cosine x = sin(n/2)(y+l) 

2. Divide y (or y+l) into an integral part R, and a 


fractional part S. 
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3 . R defines the quadrant into which x falls. Let R' 
be the two low order positions of R, since in binary 
notation; other positions merely define a number of 
conqplete revolutions. 

4. R 1 is a number one less than the number of the 
quadrant into which x falls. 

5. S defines the displacement (in a positive direction) 
within the quadrant indicated by R'. 

6. Therefore; if R' = 00, Let = S first quadrant 

R' =01; Let = (l-S) second quadrant 

R 1 =10, Let = (-S) third quadrant 

R' =11, Let = (l-S) fourth quadrant 

7. Sine (or cosine) x = sin(ir/2)z 

8. (l/z) sin (it/2)z is approximated by the Rand Polynomial 
Approximation Number l6, using argument z. 

9 . If x<l/2, (2/n)x, which is in floating form, is 
substituted for z before doing step 10. 

10. Multiply the approximation from item 8 by z giving the 
result, sin (or cosine x). 

IV. Usage: 

a. Calling Sequence 

LOC OP u v 

r RJ t + 2 t 

r Normal return 

b. Control and Results 

The argument x must be placed in the Accumulator and the 
parameter word (zero or non-zero) in t + 3* At the time of 






RW SIN-4 
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normal exit from the routine, sinx (or cos x) will he in the 
Accumulator. 

c. Space Required 

56 instructions, 12 constants, 4 temporaries. 

d. Error Codes 


The alarm exit is not used by this routine. 

V. Restrictions: 

38 

The range of x as a floating point number is approximately + 10 

VI. Coding Information:- 


a. Constants 


+62 




+63 

17 

77777 

77777 

+64 

00 

00001 

00000 

+65 

00 

00000 

00200 

+68 

00 

00000 

00003 


2 35 2/rt 

v 


128 
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oosoo 

MJ 

00000 

00S04 

ENTRY 

oosoi 

00 

00000 

00000 

ALARM EXIT 

00S02 

MJ 

00000 

00000 

normal EXIT 

00S03 

00 

00000 

00000 

9ARAM WD 

00S04 

TU 

00S37 

0CS54 

SE T EX! T PC'S 

00S05 

LT 

00009 

0 2 500 

EXP PLUS 200 

O0SO6 

LQ 

AOOOC 

00035 

MAN T SCAL 7 5 

OOSO 7 

MP 

QOOOO 

01 SO 5 

SCALED 70 

00S08 

lT 

00000 

QOOOO 

QUADRANTS 

OOSOO 

TP 

QOOOO 

02 SOI 

oCALED 34 

oosio 

TM 

02S00 

AOOOO 

EXPONENT 

OOS11 

ST 

01S08 

C2S00 

UNBIAS EXPJN 

00 S12 

S J 

00S13 

00S20 


DOS 13 

SA 

01S10 

00000 

ANGLE LESS 

00S14 

SJ 

00S17 

00S15 

THAN HALT 

COSTS 

TV 

AoOOO 

O0S16 


00S16 

LA 

QOOOO 

00000 

MAN"! I SSA 

00S17 

LT 

00008 

QOOOO 

RS SCALED 34 

00S18 

TP 

00S03 

AOOOO 

PARAMETER WD 

00S19 

Z J 

00S26 

00S36 


00S20 

TJ 

01S10 

00S22 

ANGLE GREATR 

00S21 

CC 

QOOOO 

AOOOO 

THAN HAi_F 

00S22 

TV 

AOOOO 

O0S23 


00S23 

LA 

QOOOO 

00000 

RS SCALED 34 

00S24 

TP 

00S03 

AOOOO 

PARAMETER WD 

OOS25 

ZJ 

00S26 

00S28 


00S26 

TN 

QOOOO 

AOOOO 

!E COSINE 

00S27 

AT 

01 SO 6 

QOOOO 


00S28 

QT 

0 1 SO 6 

0 2 S 01 

ARE Z FIXED 

00S29 

CC 

O2S00 

AOOOO 

EXP c INL ZRO 

OOS30 

QJ 

00S31 

OOS32 


OOS31 

RS 

00S54 

01 SO 7 

QUADRNT 3OR4 

00S32 

QJ 

00S33 

00S35 


00S33 

TP 

01S06 

AOOOO 

QUADRNT 2 OR4 

OOS34 

ST 

02S01 

02S01 


OOS35 

TP 

02S01 

QOOOO 


00S36 

MP 

QOOOO 

QOOOO 

Z SQUARED 

00S37 

LT 

00002 

02SO2 

SCALED 34 

00S38 

TP 

01S0C 

QOOOO 

C9 SCALED 

00S39 

TP 

01S11 

02S03 

INDEX 
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00S40 

TU 

00S38 

00S44 

00S41 

RA 

00S44 

01 SO 7 

00S42 

MP 

QOOOO 

02S02 

00S43 

LT 

00002 

AOOOO 

00S44 

AT 

00000 

QOOOO 

00S45 

I J 

02S03 

00S41 

00S46 

MP 

QOOOO 

02S01 

00S48 

2 J 

00S49 

00S02 

00S49 

SF 

AOOOO 

02S03 

00550 

LT 

00028 

QOOOO 

00S51 

RA 

02S00 

02S03 

Q0S52 

SA 

01S09 

00027 

00553 

CC 

AOOOO 

QOOOO 

00S54 

RP 

00000 

0OS02 

00S55 

TN 

AOOOO 

AOOOO 

00S47 

LT 

00006 

AOOOO 

01S00 

01 

51484 

19000 

01S01 

-4 

67376 

55700 

0 1S02 

07 

96896 

79280 

0IS03 

-6 

45963 

71106 

01S04 

01 

57079 

63185 

01S05 

06 

36619 

77225 

01S06 

17 

77777 

77777 

01S07 

00 

OoOOl 

00000 

01S08 

00 

00000 

00200 

01S09 

00 

00000 

0007 3 

01S10 

00 

00000 

00034 

■ .. n 

00 

00000 

00003 


BUMP CONSTNT 
EVALUATE 
RAND 

' POLYNOMIAL 
SCALED 30 
MULT BY 7 64 
EXK TES~ 
FLOAT MNTSSA 

PLUS SCL FCT 
FINL EXPON 
PACK 

ONCE FOR NEG 

TWICE FR PJS 
FI NL MANTS .A 


-04 

30 

C—9 

-0 3 

3C 

C-" 7 

-02 

30 

C-5 

-01 

30 

C-3 


30 

C-l 

-01 

35 

2 OVER 

B 


MASK 

B 



B 


126 

B 


59 

B 


28 

B 


3 
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LOAD HUB TO AUTOMATIC PLOTTER CARD CONVERSION 


This routine will retain the indicative information in the first 
field of a load hub card and convert the other seven fields from floating 
decimal form to fixed decimal form which can be read by the automatic plotter. 
Each output word will be of the form OOOXX.XXOOO and should not exceed 70.00. 

The plotter does not distinguish between an X and Y punch on a load 
hub card, so a constant must be added to fields having negative values, to make 
all values positive. Each field is divided by a scaling factor so that the 
final output will be units of centimeters. Use the following formula to 
determine the scaling factors. 

Given X 


K = A Multiple of M such that K bounds largest 
negative number in the field*, 

M • Number of unite of X desired ger centimeter. 

M should be of the form 1 X 10^, 2 X 1QP, or ^ X 10P where 
p may equal any number. This facilitates easier 
reading of the graph. 

Xp ■ Plotter values in centimeters. 


X * K - JL 
— ir- 


I. Input (Use 533 Panel No. 2, 7, or 12). 

A. Load Card. 

B. FLAIR Deck (08 command is used) Decks 033*20 and 033.21. 

C. Conversion Deck No. 079.00 - 16 cards. 

D. Load Hub Card containing K in floating point for each field (except 

» TirstTTield — first field may be used for indicative material and is 

not used in the output). 

E. Load Hub Card containing M in floating point for each field (except 
first field — not used in output). 

F. Load Hub Cards to be converted. 

NOTE; Input must be in this order for routine to work. 

II. Console Setting — Standard Load Setting. 

III. Output. 

A. Load Hub form — fixed decimal in form OOOXX.XXOOO with Y punch in units 
position of each fieldo 

B. A one (1) is added to the left position in the first field, which still 
contains original indicative information, to identify it as a plotter 
card. The last seven fields are converted at a rate of approximately 
25 cards per minute. 


65o-pc-oooc6s 


■ 2 - 


11 April 1956 



Suppose field number is to be plotted against field number 6. In field k 
are the X values and in field 6 are the T values. The highest X value is 1379 and the 
largest negative X value is -17. The highest Y value is 120 and there are no negative 
Y values. The graph is to be plotted on the regular size "centimeter paper", which is 
70 X 70 centimeters (notebook size is 20 cm. X 25 cm.). 


1379 ♦ K 

---— • No more than 70 cm* 

n 

13 . 7 ?i 20 - 69.95 cm. 


Therefore: K ■* 20 . 

M . 20 ( for Flcld **) 

The X axis is moved up 1 cm. 


120 ♦ K 


• No more than 70 cm. 


120 + 0 


* 60 cm. 


Therefore} K - 0 

M « 2 (for Field 6) 

The Y axis does not move. 



EWHtag 
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June 29, 1956 

Revision of FLAIR 
New 06 Command 


Deck 033.24 consists of four cards and is now available to use in 
conjunction with FLAIR. This deck changes the 06 command from a NO-OP to a 
repeat command of the form "repeat the set of commands starting at the 
number ot times in P ", The 06 command must be sequential to the last 
instruction of the set. At the completion of P loops, the next command is 
sequential to the 06 command. 

The form of the instruction is 06 ©c N, where is the address 
of the first instruction of the set to be repeated, and N is the number of times 
the loop is to be performed. 

For example, if I is the address of the first instruction of the set, 
and L is the last, the address of the 06 command must be L * 1. 

A 0 a 0 

L+l 06 IN 

Thus, the set of commands from address I to L will be performed N 
times and the next instruction will be at L+2. The set of commands from I to L 
may contain both FLAIR and machine language commands, providing L is a FLAIR 
command, or a command to re-enter FLAIR at (L+l), where (L+l) is sequential to 
the last FLAIR command used. 

If N is zero, the 06 command is a NO-OP, and the next instruction is 

sequential. 


If the set of instructions I to L must be used again later in the 
program, their addresses may be modified by use of the 08 and/or 8 TT command so 
that the 06 command may be used again on the same set (even though it is not 
sequential before the modification). 

This deck should be read into the machine following FLAIR so that the 
proper modification of FLAIR will be made. Storages 1200 thru 1216 are required 
for this command. 

4 

Coding of new 06 command: 


A 

0 

D ‘ 

I 

16? 8 

65 

1615 

1204 

1204 

16 

1793 

1205 

1205 

69 

1203 

1206 

1206 

22 

1203 

8001 

1203 

65 

0000 

1207 

1207 

16 

1202 

1208 

1208 

69 

1615 

1209 

1209 

22 

1890 

1210 

1210 

35 

0006 

1211 

1211 

11 

8003 

1212 
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Coding of new 06 command* (.continued) 


A 

0 

D 

I 

1212 

U5 

1213 

1200 

1213 

65 

1202 

1211* 

1211* 

15 

1201 

1215 

1215 

20 

1202 

1216 

1216 

60 

1890 

8003 

1200 

20 

1202 

1612 

1201 

00 

0000 

0001 

1202 

00 

0000 

0000 


Coding W« 0. Wootan 


Write-up W. 0* Wooten 


Approved 
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June 29, 1956 

ADDITION TO FLAIR 
New 09 Command 


Deck 033.23 can be used in conjunction with FLAIR (Deck 033*20) 
and the FLAIR index registers (Deck 033*21) to provide a "transfer and set 
index" command. 

The 09 a P command, if located in storage "n", sets the 
index register tagged by " a " to "n ♦ 1" and transfers the control sequence 
to address 

This command makes an automatic return from subroutines possible. 


Example! 
set8 index "D* 
to 0111 



0008 

8000 


0250 

0251 


Hypothetical routine which 
always uses number stored 
in Position 0250 


0260 00 0000 8000 
0111 OP a p 


This Routine uses drum positions 1217 to 1227 inclusive. 


Coding* 


A 

0 

D 

I 

1681 

65 

1867 

1217 

1222 

35 

3 

1225 

1218 

22 

1885 

1222 

1225 

19 

16U2 

1219 

1219 

35 

2 

1226 

1226 

15 

1220 

1227 

1220 

23 

1209 

1792 

1227 

22 

1867 

1221 

1221 

65 

1615 

1223 

1223 

30 

h 

122b 

122k 

69 

8003 

1867 

1217 

69 

1885 

1218 



SVMBzLic FlEtFf-j OPSK frTto 


i APE _ ds_^ 


J>o FFB /ftp - 


« 


BS 

-□HO¬ 

MO 

DMM 

mm 


45000 

-44 3 2 7 

40000 
_ /(Dp?6 

4017? 

-4 0303 

40303 00000 

-4 033 4 

40303 00031 
403 5* 
4D203 00053 

- 40334 

40203 0 p 02l 
4 0307 
40203 00104 
4 032* 
40203 00123 

- 403 6 0 

40203 00155 


40203 00170 


LOGIC TRACE 
FAP TRACE. 

DRUM STARTS 
-CALL-SEOS 
INT PR 

COLD - 

START 

TAPE- 

READ 

BINARY 

LOAD 

BA S I C CALLING 
sequence. 
CONSTANTS for 
OP PKG 
BLOCK 
STORE 

-CHECK-SUM- 

ROUTINE 

DRUM- 

READ 


DDDOO 

DDD01 

DDD02 

nono^ 


DDD04 

DDD06 

DDD06 

DDDQ7 

DDDOp 

ODD 10 
ODDI 1 
DDDl 2 


40203 0021? 


40441 




53500 

50002 

4565? 

- 0 1 774 
4170? 

-00037 

46144 

- OOOO1 

45516 

-4 55 74- 

4 1176 

_46426- 

46600 

-00170 

4 1376 

_00Q55 

01420 

_ft 1 AX a 

DDR 00 

_nnno?_ 

DDDOO 

r>nc?05 


DDR 10 

_DDR-15- 

DDP20 

_DDR2 5 

DDR 30 


DDR40 


DDRSO 


WITH BINARY 

_QPX1Q-N_ 

PREPARE 


MAFIA 
MISHAP 
M T SCRAP 

-.0CT-A1_DUMP-- 

DATA TAPE 
CORRECTION 
TAPE 

—QUP-LICATE 
TAPE 

—COMPARE- 

DR I NT BIN TAPE 
READ BIN CDS 
PCH PIN CDS 
READ PAPER TAPEL 
DRUM CORE IMAGE 

-BUFFER_ 

FAP 

BKPT CONTROL WD 
RUFFFR 

ANOTHER BUFFER 
RD SERVICE T p E 

DRUM FI_ 

STOP 

i o a n pap 


LOAD BINARY 
LOAD MAFIA 
ASSEMBLY 

- correction_ 

MEMORY DUMP 
LOGIC TRACE 
C AP TRACE 

NOT USED - 

NOT USED 


40000 


40002 


iiiTlIli 


4000a 

40006 
40007- 
40010 
-4 00 1 1 
4001? 
-4001-3^ 
40014 


PBT 
-RRC - 
PBC 
RFQ- 


45 00000 400^6 


56 00000 40000 


r*TtT«T«T*Wr*T*»] 


4^ 00000 
-45 0 0000 
4* 00000 


40040 


4005? 


4 c 00000 40064 


46 00000 40076 


4 c 00000 40110 


4463? RELOC 

44230 RFLOC 

4417? RFLOC 

41325 RELOC 
,46300- RFLOC 
46400 RFLOC 


FORM 143 THE STANDARD REGISTER CO. 






40015 

40014 

40017 


4002 1 

4002.?- 

40023 

40024- 

40025 

40024- 

40027 

40030 

40031 
<1003?- 
40033 
40034- 
40035 
-40034- 
40037 
40040 
4004 1 
4004.?- 
40043 
aQQ4fl 

40045 

40044- 

40047 

40050 

40051 


4 e ' 00000 40115 

4 C - 00000 401 ?? 

4 e 00000 4012^ 


4 * 00000 
...4 5 OOP00- 
4 e 00000 
45 00000 
45 00000 
-37 40224 
11 00001 

00 00000 
00 40204 
37 40224 
-1 1 00212 
00 00024 


40141 

40 1 ?3 
40160 
40165 
40172 
00001 
OOOOO- 
000QO 

ooooo 

4017? 

00212 

OOOOO 


00 40415 OOOOO 
37 4 022 4 4 0 1 7? 

11 00053 00053 
OP 00031 OO QQQ- 
00 OOOOO OOOOO 

-OP 40?56 000.00 

3”? 40224 4017? 
11 53500-53500- 
00 01500 OOOOO 

_OP OOOOO 000.00- 

00 53500 OOOOO 


40053 11 50000 50000 

40054 _OP .03477 OOOOO_ 

40055 00 OOOOO OOOOO 

4005 5 _0 0 50000 QQQQO... . 

40057 37 40224 4017? 

40060 _U—50002- 500.02— 

40061 OP 03475 OOOOO 

4006?- 00 OOOOO OOOOO 

40063 00 5000? OOOOO 

40064 37 40224 4017? 

40065 11 40557 40557 

4006 6 -OP ■OQ425--QOO O O— 

40067 OP OOOOO OOOOO 

40070- OP 40557 OOOOO 

40071 37 40224 4017? 

4007?_LI 4500 0 4 5000_ 

40073 00 00516 OOOOO 


40075 00 45000 OOOOO 
40076- -37 40224 40172 
40077 11 44327 44327 
.40 1 00 00-00451 OOOQQ- 
40101 00 OOOOO OOOOO 


40103 37 40224 40172 

40104 00 00-000-00000- 

40105 00 OOOOO OOOOO 

40106 -OO OOOOO OOOOO 

40107 00 OOOOO OOOOO 


RFPL 

RFPL 

RFPL 

RFPL 

iRF-PU 

RFPL 

RFBL 

RFP-L 












4oi 16 


37 40224 40172 


401 Ip 00 00000 00000 

4.0 1-L3_00 00000 OQQQO 

40114 00 00000 0000O 

-4044-5_37 40224 40172 

40116 11 4565? 01774 

401 47— 410430300 OQOOO 

40120 00 00000 00000 

404-2-1_ 00 456 5 2 00000 

4012? 37 40224 4017? 


40124 00 00224 00000 

404 25 - 430 ©OOQO-OOOQO^ 

40126 00 4170? 00000 

401 27 — 3 7 4 022 4 4017? 

40130 11 46144 00001 

4013? 00 00000 00000 

40133 -00-46444 00000 

40134 37 40224 40172 

40135 11 45516 4 5516 

40136 00 00051 00000 

-40437 00- 00000 OOO Q O 

40140 00 45516 00000 

4 0141 - 37 4 022 4 4 0172 

4014? 11 45574 45574 

40143 _ 00 00100 O Q OOO 

40144 00 00000 00000 

4044-5_00. 45574-00000 

40146 37 40224 4017? 

40147 _11 4 1176 41176 

40150 00 00177 00000 

40154_QP 00000 O QO OO 

40152 00 41176 00000 

40.1.53_ 37 40 22 4 40 1 7 2 

40154 11 46426 46426 

40155 _00 00070 OQQQO 

40156 00 00000 ooooo 

40157 - QP 46426 00000 

40160 37 40224 40172 


4016? 00 000-30 OOOOO 

40163 00 OOOOO OOOOO 

40164 00 OOOOO OOOOO 

40165 -37 40224 4 0172 

40166 11 00236 00236 

404-67-0 0 - 004 44 OQQQO 

40170 00 OOOOO OOOOO 

40172 11 OOOOO 46600 

40173- —44 31000 40234- 

40174 2? OOOOO 4023? 

404-25_—L4 32000 - 4 .0 2 3.3 

40176 11 40203 OOOOO 

40177 —25 30357 40201 

40200 11 00001 46601 


4020? 


11 40204 00001 














STOO 
-S TOl 
STOP 
- SXQ 3— 
stou 

-STO-S-- 
ST06 
ST07-- 
STOP 
-STOQ- 
STIO 
—SX4-1— 
ST 1 P 
—SX4-3— 
ST 14 
. ST-15— 
ST16 
..-RROO— 
RROl 

RRO?_ 

RR03 
RR04 
RR05 
_BROF— 
RR07 
RROP 
RROB 
RR4-0-- 
RR1 1 
RR 1-P— 
RR 1 3 
RR 14 
RR 1 5 

R R 1 £_ 

RR 17 
-BJLOQ — 
BLOI 
BL OP 
BL03 

BLQ4_ 

BL05 
BLQ 6 _ 
BL07 
BLOfi- 
BLOq 
— BL 1 .Q- 
BL1 1 

BL 1 ?_ 

BL1 3 


BL1 *5 


BL 1 7 
R[_ 1 R 

BL1Q 
BL2Q 
BL2 1 
BL2P 
BLP3 


MJ 

TV_ RR 12 

TV RR02 


STOl 
ST 15 
CNl 1 


ZJ ST06 ST05 


RJ RR10 
TP ABOO 
E J CN06 

_MJ_ 

17 30357 

-XU-ST 10 

TP MP05 

SP_ MP0 6 

SA MP07 
-RP 30000 

tp nr .ioi 

-SP-Q_ 

lo r nor 

RP_10004— 

OS A 

FF 

TP rN05 

-&E- 

RP 10120 
FR -1 0000 
FR 

ZJ-9R4-4— 

IJ MPOO 
-57- aoQQO-.; 
FF 

SP A_ 

AT 0N04 


TP 0N07 


RROO 


STIO 


r.NOO BPR 


dqroo 

5T01 

-L2_ 

3 1 00* 
—RR-Q4 
CNOO 
OMOU 

MPOO 
ON - 0 - 3 - 
RPOR 
ABOO 


RP 1 3 
4000? - 
ONO? 

_IP 

MP03 

-MRQ3 

RROO 

R.RQ.O- 

MP04 

R L 03 


RA 0L03 ON 13 


RR04 


TV RL07 
. RJ RR 1 0 
TP ABOO 

_QJL_-GLIB 

RP 20120 

SA_ABOO 

SA 1P04 

TP A _ 

MJ 

-EE- 

TP MP05 
QJ R LP2 
TV ABOO 

SP_MP Q4 

SS AB01 


ONI 1 


RL15 


RSOO 


BL2 1 
ST 1 5 


CORE FI 
SET COLD EXIT 
SET STORE EXIT 
LIB TPE NO TO A 
IF ZERO 
SET EQUAL ONE 
READ BLOCK 
FIRST WO 
TST END TPE 
TO STORE AND RD 
REWIND LIB TPE 

SET—RPX--- 

RESTORE 0 
A-LEFT-AND 
A RIGHT 
REST ADJUSTED 

core and exit 
T.U NUMBER TO~A_ 
MASK TO 0 
SET REWIND MOVE 
BKSPCE READ 
SET BIAS NORMAL 
SET BIAS INDEX 
READ ONE- 
BLOCK INTO 
BUFFER 
TOA TO A 
TST XOR^RROR 
TST BIAS 

STOP-BAD TAPE- 

BACKSPACE 

AND 

CHANGE BIAS 
REREAD 

R FA D B LOCK_ 

SET INDEX TO 5 
TEST 
END OF 
HIGH SPEED 
PRINTER 
PART O F TAPE 
READ ANOTHER 
SET EXIT STOP 
SET STORE EXIT 


TEST END 

_B_LNARY_ 

FORM AND 

_SAVE 

RUNNING 
CHECKSUM 
STORE AND READ 
MOVE FWO 1 BLK 
TPE NO TO 0 
-SEX XXIX 
IF NO STOP 


TEST FOR 


40203 45 00000 00001 

40204 - IF 000 4S 00 017 

40205 IF 00033 00117 

402OF— U 31 00 0 3200 0 

40207 47 00006 00005 


402 1 1 
402 1 2 
402 1 3 
40214 
402 15 
4024-6— 
402 17 
4022 0 
4022 1 

4 0222 

40223 

40234 _ 

40235 

40236 

40237 

40240 

40241 


37 00043 00031 
11 00170 32000 
47 00112 00012 
45 00000 00123 
17 30357 00104 
—L c 00012 00017 — 
11 00026 31000 
3t 00027 00044 — 
3? 00030 00000 
7_5 _30000 40026 
11 46601 00001 
-31 31000. 000.1-4-- 
55 00115 31010 

75 1 0004 00035_ 

53 32000 00104 
17--00000 00110 
11 00111 00021 


40243 

4 024 4 - 

40245 

4 02 46 - 

40247 
41025©- 

40251 

4-02 52 

40253 

4 02 54 - 

40255 
—40256. 

40257 


75 10170 
7F 1Q Q0Q- 

76 00000 
47 0Q04 / I 

“ t v V/ I "T 

41 00021 


00042 
004 70 
32000 
QOQQO - 
00046 


17 00000 00106 
31 32000 00014 
3? 00110 00024 


4 C 00000 00037 


40257 11 00113 00025 

40260- ...IS. 00007 00056 

40261 11 00000 32000 

40262 4 3 00112 0PQ63_ 

40263 21 00056 00121 

.40254_Si. -00025 00056- 

40265 4 C 00000 00035 

40266 1.6 0004-5 000-L7- 

40267 16 00062 00117 

40 27 0 37 00043 00061 

40271 11 00170 31000 

. 40272-_.4.4 QQ075 OQOZQ- 

40273 75 20170 00072 

4 02 7 4 -3-2—004-70—O-QQ OO 

40275 32 00025 00000 

40277 4 e 00000 00123 

40300 -4J7—DOOOD—OD+DS- 

40301 11 00026 31000 

40302 4 4 OQIOl OQ VO O- 

40303 16 00170 0001 7 


40305 


34 00171 00000 









ZJ M010 ST 1 1 


CHECKSUM ERROR 


BL24 
MP-OQ— 
MPO 1 
MPO? 
MP03 

MPOS 

mpoa 

MP07 
_CNOO 
CNO 1 

CN03 
CN04- 
CNOS 
CNOA 
CN07 
CNDfl . 
CNOP 
CN10 
CN 1 1 
CN1 ? 
CN 1 3 
-CNUt - 
BSOO 
-BS01 
BS02 
B_S03 
BS04 

_asos- 

BSOft 
BS07 - 
BSOfl 
BSOO 
8S10 


BS1? 
BS1 3 

Bsm 
BS1 6 
8S16 
..BSJJZ- 
BSl fi 

asm 

BS20 
3S2! 
BS2? 
BS2.3 
BS24 
BS2S 
MOOO 
_mai 
MQ02 
MQ03 
MQOa 
MOOS 
MQ06 
-H0Q7- 
MOAft 


TP RROO RROO 
-OQ 00 161 0 0000 


60000 


02 ooooa ioooi 

0 2. 0 0 04 4- 1- 000 1 
02 00602 10000 
0 2 00001 50000 
00 OOOOO 00003 
60 60606 06060 
00 OOOOO 000OS 

—T-P-DC 100 

00 OOOOO 00360 

_RP 30000_BS2U 

RP 3^000 


TU BL23 MPO1 

TV_ A. BOO_MP01_ 

TU ABOO MP02 

SP_ABOO_2-1_ 

I.Q A 16 

-TU_MPO 1_CUQfl_ 

AT CNOR BS25 

TP- CM09 -A — 

ST Q MP03 

SJ-BS4-0- BS 1 1 - 

RS MP03 A 

-55_MPQ3 3201-7_ 

AT MP03 A 

M _JBOJ_BS23 

TN Q A 

AT_MP02 A_ 

SJ BS17 RS16 

RS A_A_ 

TP MP02 Q 

-AT_CNJ-0_BS22_ 

TP 0 A 

_AI _CN1 1_ RS24 


MP04 


AT CN14 M005 


RS A 


SA RROO 


SS 1P04 


TP STORE EXEC 
BLANK NO WOS bl 
CK SUM LOWER 
-RL- DM-LOO- CKSUB 
0 

A LEFT — 

A RIGHT 
REWIMP 
MOVE FWD 

MO VE BACK - 

READ FWD 
NORMAL BIAS 
r 

INDICATOR 

6 

-OV TRM O-UMM-Y_ 

240 

NORM RPT DUMMY 
OVLP RPT DUMMY 
CORE TEST 
20 SIS 

CK SUM—DUMMY_ 

SET STORE LOC 
SET EXEC- -LOC 
SET NO WORDS 
EXEC-LOC- 
TO A AND 0 
SET OV TRM-DMMY 
SET OV TRM 
4240 MINUS EX 
LOC EQ OVLP 
IF NEGATIVE— 

SET ZERO 
POS OV Q AMO A 
OV IN U V OF A 
SET NORM TRM - 
NO WPS MINUS 

IF NEGATIVE 

SET ZERCL_ 

N TO 0 

SET NORM RPT 
SET OVERLAP 
REPEAT^ 

NORMAL 

TRM _ 

OVERLAP 

TRM_ 

ZERO LOCATION 
JBQS JO Q -AND A- 
SET RPT 

-SET -ADD_ 

CLEAR A 

FO RM_ 

CHECKSUM 
SUBTRAC T— 
CORRECT SUM 


40306 


47 00167 00013 











MOOR 

MMno 
MMOt 
MM02 
_ MMQ.y 
MMOU 
MMQS 
MM06 
J4M07 
MMOR 

_MMOO- 

MM1 0 
KM1 1 
MM 13? 
MMl 1 
MM 1 a 
.MM 4- 5 
MM 1ft 
MM 1 7 
LFOO 


ZJ MQIO MM01 

-MS-S TQ2 - 

rj Mono Mono 
55 mpoo 31017 

TU 0 MMOU 


MPOO 

MQDO 

MP01 


EJ- MP-fl.3 
RJ ON 11 

MJ- 

ST TNI? 

SJ_ST 12 

RP 3001P 


MP01 
MMOft 
STl 5 
MOOD 
ST 1 5 

_Oft_ 

1 5 

-MP03- 
1 5 

MM 1 ft- 
RS05 


ST 1 1 
F02 


FXIT IF ZERO 
ERROR STOP 
OKSUM DMM+ 

POS LOC CALL 
OBTAIN CALL SEQ 
FOR CURRENT 
ROUTINE 

CALL MINUS ONE 
SET FRROR EXIT 
CKSM ROUTINE 
SUCCFSS EXIT 

OB-TAJ-N_ 

STORAGE 
- LOCATION 
EX LOC TO A 0 
NO TRM IF EQ 
OBTAIN ROUTINE 

E X IT - 

IF IN CORE 
DO NOT—REPLACE 

transfer 


LF02 
J- F 03 
LFOU 
- LEO-5- 
LFOft 
-LF0 7 
LFOP 

LF10 
L F1 1 
LF 1 p 
LF 1 3 
LF i a 
L F 1 5 
LF 1 ft 
-L F 1 7 
LF 1 P 
LF IQ 
ZVOO 
-imi- 
ZY02 
ZY03 
ZYOU 
ZY05 
ZYOft 
_ZY07„ 
ZYOP 
ZYOO 
ZY1 0 
-ZY1 J_ 
ZY 1 2 
-ZY 1 3 
ZYU 
ZY 1 5 
ZY 1 ft 
ZY 17 
ZY 1 P 


TV RR12 F17 


TP Q 

-ZJ-F-Qfc. 

RJ BL2« 

TV_ST-4-5 

75 31607 
-T-P- E-AP-0 1 
75 21607 

SA-STQ 1 

SS F 1 P 

SS_ F1 Q 

ZJ F 1 5 


BLOO 


F 1 5 F 1 6 

_FOR 

F02 BCV'OO 


RJ ZY6U 

-RS—A_ 

75 21607 
SA FAP01 
TP A 
LT- 

TP ZY71 
RJ 7Y64 
IJ MPOO 

rp loooa 

TV 7Y6P 
E F 

TP DMP05 


ZY50 
-A_ 

7 YOU 

DLF1P 
OLF 1 9. 
MPOO 
7Y'4 ° 
ZY50 
7 Y1 ! 
CNOO 
CNOO 
Q 


OV ZYft6 MP06 
LT 10015MPQ7 
RP 30120 7Y1R 

-TP PS TOO_FFOO 

TV 7Y34 RROP 


SET FAP ONLY XT 

■ SAVE 8CW- 

TF TAPE NUMBER 
NOT ZERO — 

LOAD BINARY 
SET EXIT— 

RRINO FAP 

- OF F ... DRUM_ 

FORM 

CHECKSUM 
SUBTRACT 
CORRECT SUM 
TEST FOR 
CHECKSUM ERROR 
SET BC W 
EX IT— 

CKSUM LOWER 

FOR FAP UPPER 
CKSUM BASIC OPS 

CLEAR A_ 

FORM FAP 
CHECKSUM 
AND 
STORE 
SET INDEX 
TO CKSUM LOOP 
TST FND CKSUMS 
SET T APE 

operations 
REWIND TU2 
FND-iiOOOO OCT 

_EjGLAIO. JWDlS._ 

RY 119 EO BLKCT 
OVFL CT 
COLD START 
TO- BUFFER 
SET READ RUFFER 


4037 1 


40373 

40374— 

40375 

40376 

40377 
40400— 
40401 
4040-2— 
40403 

-40404-— 

40405 

40406 _ 

40407 

404 10 - 

404 1 1 

4 0 44-2- 

404 1 3 

-4 0 4 1 4- 

404 15 

40446- 

404 17 


47 00167 
5 * ^ 0000 
3^ 00166 
55 00021 
1 C 31000 
- _ 7 -5 30 004- 
11 00000 
44 0 002 1 
16 32000 
37 00166 
16 00022 
_ 34 . 32000 
31 32000 
-22- OOOOO 
5 C 32000 
43 0002-4 
37 00117 
—4-5—OOOOO- 
36 00120 
4 ft 0004 4 - 
7 C 30022 
1 1 0024 4 
16 00045 


00171 
00002 
00155 
310 17 
00174 
00 1- 7 - 5 
00022 
004 76, 
00017 
00 15-5 
00017 

00017 
00024- 
00017 
- 00210 
00 130 
0 00 4- 3 — 
32000 
00013 
01752 
017 5 2 
01771 


40421 11 31000 32000 

-40422_ 47 Q1756 01760 

40423 37 00103 00053 

40424 _16 00 01 7 0 1 771 

40425 7 C 31607 01762 


40427 7* 21607 01764 

4043-0— 32 00001 QQ O QQ - 

40431 3<J 01772 00044 

40432 _34 01773 OOOOO 

40433 47 01767 01770 

-40434_56 QOQOa -04.7-60- 

40435 11 01752 00055 

40436- -45- OOOOO OOOOO 

40437 OC OOOOO OOOOO 


4044 1 
—40442- 
40443 
40444- 
40445 
40446^ 
40447 

-40-4.5-0_ 

40451 
40452- 
40453 
40454- 
40455 
40455 
40457 
40460- 

40461 

40462 

40463 


3-7 00336 0032n 

7 C 21607 00242 
32 41377 O OOQQ- 
11 32000 40437 
22 OOOOO 40440_ 
11 00345 00021 
_ 37 0 0336 Q031?... 
41 00021 00320 
75 L0034 -00251 

16 00342 00104 

17 OOOOO 00104 
11 40231 31000 

_ 23-34-00-0 00120 
7.7 00340 00027 
22 1004 7 00030 
7 C 30170 00260 
--U 40203 0142 0 
16 00300 00041 






ZY1Q 
ZV20 - 
ZY2l 
ZY2? _ 
ZY23 

_Z-Y24 

ZY25 

ZY26 

ZY27 

ZY2R 

ZY29 

_ZM3Q.. 

ZY3 1 

_ZY32 

ZY33 

_ZY3ii 

ZY35 

_ZY36. 

ZY37 

_ZY3fl 

ZY3P 
—ZYAO 
ZY41 
Z Y 4 3 
ZY43 
—Z Y 44 
ZY45 
ZY46 
ZY47 

_Z YA ft - 

ZY4Q 
ZY50 
ZY5 1 
ZYS2 
ZY53 

_ZY54 _ 

ZY55 

_ZY56 

ZY57 

_ZY5-B 

ZY.59 

ZYAO 

ZY61 

ZY62 

ZY63 

ZY64 

ZY65 


ZY67 
ZY6R 
ZY6Q 
ZY70 
ZY7 1 
ZV7? 
ZY7 3 


RJ ZY47 7Y37 

_7Y67 A_ 

AT ON12 FFOO 

RA ZY36 7Y67 

JtA_ FFO O ?Y 66 

IJ MP06 7Y3«5 

TP_MPC17-A_ 

7J ZY2P 7Y30 

TU A_ FFO O 

RJ ZY47 7Y35 

-EE-7Y6fl 

RP 120 7Y33 

ew tnooo_CWA 

EF CMOO 

FS DOR02_SPOOL 

RP 301 IP 7Y37 
_UL-4nOOO_F-P04- 

ef zy6r 

RP 1012 -0- 7Y4 Q 

EW 10000 FFOO 


RJ RR10 RR 04 

- RR 3 0130 - 7Y 4 4 

RS GFOO FFOO 

- RS A -A- 

RP 20120 7Y47 

7J ZY4P 

-MS-7Y37 

TU ZY34 zy5l 

RP 30003_7Y53 

TP DMP02 MP02 

TP MP02 A 

_AT_ 7.YA9 _7Y56- 

RS A A 


_MP04 

k MP03 

ZY57_MP.QA. 

7Y51 31021 


TV Q 
RA 7Y51 
RP_30.Q03- 
TP MP02 


7Y65 

7Y70 


1 <*>7 

02 00606 20001 - 
RP 20000 7Y58 


TP DST01 ST01 


WRITE BLOCK 

SET FIRST WORD 
—SE T L OOP 
PUMP DRUM READ 

RUMP LOCATION_ 

TEST MO FLOCKS 
-OVERFLOW TO A 
FXIT IF ZERO 
SELT WORD COUNT 
WRITE BLOCK 

WRITE_ 

END 

OF FILE 
REWIND 
END PROGRAM 
RLOCK 

_FROM.-DRUM_ 

WRITF 
—BL OCK 
ON TAPE 
RACKSPACE 

read back 

tape -MI44S- 

ORIGINAL 
ZERO ACCUM 
PORM 

—SUM- 

TST FOR ERROR 
TAPE STOP 
SET FIRST WORD 

parameters 

TO CORE 
SAVE LOC 
SET 

_REPFAT_ 

ZERO ACCUM 

FO RM_ 

CHECKSUM 
STORE UPPER 
STORE LOWER 
RESET LQCATION- 
POSITION 
SET DRUM STORE 
PUMP LOC 
CHECKSUM^ 

TO DRUM 

11 9_ 

119 SIS 
WRITE JEOPWARD 
CKSUM DUMMY 
CKSUM BUMP 
19 

INITIAL LIBRARY 
PREPARATION 


40464 


37 00315 00303 


40466 

40467 
40470 
4047.4— 

40472 

40473 
4047U 
40475- 
40476 

40500 

40501- 

4050? 

40503- 

40504 

40505— 

40506 

4 0507 
40510 
4 051 1 
40512 
4054-3— 

40514 

4 0515 

40516 
4 05 17 
40520 

-4052-1— 

4052? 

40523 

40524 
40525- 
40526 
40527- 

40530 

40531 

40532 

40533 

40534 
.4053-5- 

40536 

40537 
40540 
4054 I 
40542 

4054*1 

40545 

40546 

40547 
40550 
40551. 
40552 


3 C 00120 01420 
3-7 00315 00267 
21 00302 00341 
-24- 04420. 00-340 
41 00027 00301 

44—00030_32000 

47 00272 0O?74 
45 32000 01 4 20 
37 00315 00301 
4.7 QOOOO 0 03 4 2 
7 C 00170 00277 
77 1OOOQ 0Q112- 
17 00000 00104 
57 40030 04610 
7 K 30167 00303 


17 00000 
75 10170 - 

77 10000 

47-00000 
37 00043 
-7-P.-3 0 4- 7 -0- 
2’ 01610 
23 32000 
7 C 20170 

47 00316 


0034? 
00306 
01 420 
00 106 
00035 
- 003 1 2 
01420 
32000 
0031 S 
00000 
0000O 


1 C 00300 00321 
75 -30003-00322- 
11 40226 0002^ 

4-5_00025 00327 

11 00023 32000 


32000 32000 


23 32000 
OO -OOOOQ. 
32 00000 
27 00000- 
11 32000 

-15—00327- 

5 e 00321 
46 31000 
21 00321 
7 e 30003 
11 00023 
_go ooooo 

00 00167 
0 2 00636- 
7 C 20000 
or 00005 
or ooooo 
-- 7 5. 30357 
11 40204 


OOOOO 

-00025 

0002*1 

-00025 

31025 

00 337 

00344 

OOOOO 

oooon 

004-6 7 
OOOOO 
2000 1 
00330 

00023 

-00236 

00001 







OOOOOOOODOOO 



45652 7 C 30015 01775 

-45553 -14—40424 Q1 7 57- 

45554 37 01771 01760 

45555 -17 00000 02247 

45555 7 C 30003 02002 

4 56 5 7 -23 00010- 0004-0 

45560 11 31000 32000 

45561 4 7- 0 2452 02 2 23 

45562 7 K 30002 02005 

45563 -11 00000 02 3 00 

45564 54 02301 00005 

456.65 2 2 QO0QG--0230? 
45566 31 02302 00002 

-45667 -3 5 0.2.302 02 302 

45670 11 02301 31000 

45671 _44 02014 02045- 

45672 35 00063 02302 

45673 1? 02241 31000 

45674 51 02300 31000 

45575 41-0000702300 

45676 11 00065 00013 

45577_31 02300 00002 

45700 32 02300 00001 

445701_ 1 1.32000-02300- 

4570? 55 31000 00006 

-45703- 51-02241 32000 

45704 if 00064 32000 

45705- —4* 02031 02030 

45706 i* 02300 02300 

45707 -4 1- 00013 02021 

45710 2? 02300 00062 

4571 1 -J-i 00067- 02300 

4571? 71 32000 0224? 

-45713 35 02243-32000 

45714 3 C 02302 32000 

45715 _45 32000 02304 

45716 21 02300 0006? 

45717 -- . 55. 02.00.5-3.1025. 

45720 I*' 31000 02045 

45721 21 02005 02232- 

4572? 7 K 30002 0205n 

45 723 11 02300-00000 

45724 I*" 02066 02005 

457.25 _U -0H0.1.Q- QQfllX- 

45726 41 00011 02004 








VC 37 
EFOO 
EFOl 
EFO? 
EF03 
EF04 
EF 05 
EFOf, 
EF07 
EFOP 
EFOO 
EF10 
EF 1 1 
EF1? 

EF 1 3 

EF 1 a 

EF 1 5 

EF 1 6 

EF 1 7 

EF ] p 

EF 1 o 

EF20 

EF 2 1 

EF?? 

EF23 

EF24 

EF25 

EF2fi 

EF27 

EF2P 

EF 20 

EF30 

HZOO 

HZ01 

HZ02 

HZ03 

HZOU 

HZ05 

HZ06 

HZ07 

HZOP 

HZOO 

HZ 1 0 

HZ 1 1 

HZ 1 2 

HZ 1 3 

hzi a 

HZ 1 5 

HZ 1 6 

HZ 17 

HZlP 

HZ 1 O 

HZ20 

HZ21 

HZ2? 

HZ23 

HZ24 

HZ25 

HZ2* 


M J 

Q.l 

rFoo 

HZOO 

CC)Q 

FP74 

TP 

?)0 

jIMAT 

tr 

AROO 

_A_ 

1 ' 

RJ 

TP 

1 *" \ ) J 

r F 1 B 

I 02 
EF06 
’4M04 

W 

FF14 

A _ 

1 r 

zJ 

TP 

FF OP 

A 

MJ 

TP 

4M05 

w 

FF09 

0 _ 

RJ 

_pR- 

EF 1 P 

w 

FF 1 S 
rpn 

RP 

rC 

1 0003 
:aFOA 

Lr 1 4 

FF 1 3 
MM ON 

c. r 

MS 

PR 

OOOOO 

CROU 
rp t a 

TP 

I Q 

©POP 

Q_ 

I OS 

_A4 

PR 

T J 

\3* 

l Q5 

0 

FF 1 6 

MJ 

□ j 

rrpp 

FF? t 

FP74 

re.” 

210 

tin 

«=.*r 

ABOO 

apaa 

r ' 0“ 

RP 

?3 

20120 

AROO 

MLTLnT 

EF25 

01524 


TP TS07 A 
—RP--20420 E F2 P 
SA AROO 00000 
ZJ -FF29—E FOO 
RP 20120 

21 ABO© ©1521-RRB 

TP I 01 I 02 

RJ FF2« FF22-— 

RA I 03 CP04 

— TP—I-01 I-05 

TU FF12 HZ05 
—TP— —a- 

E J I 03 HZ 1 © 

-rA - H-ZOS- MM 0 0- 

IJ I 05 HZ05 
MJ OOOOO FF21 - 
TU HZ05 H71? 

RP 30004 447 T3- 
TP BF 00 

LO HZ4-2—31-024- 

TV 0 'HZ15 

TP— TS07 
TV BF01 HZ 30 
—TP-BF 01 Q 


OJ HZ21 H71O 
-TU VCOO H72.0 
MJ OOOOO HZ2 q 
TU CR04 H720 
SP BF03 1P 
at MM 10 BF 04 
|_T OOOOO BF03 

SP BF02-MS 

AT BF03 BF03 


TO CORRECT 
RESTORE AND— 

WRITE LAST RL 
TYPE 
TAPE 

IF ALL CORRECT 
IONS HAVE REE 
MAD E ty p^^oo 
OTHERWISE 

-TYPE- 

SHORT 

CARRIAGE retn 
REWIND 
TAPFS 
AND STOP 

— SHIF - T —UP- 

SET LOOP 

TYPE - 

DIGIT 

—TEST- 

AND PACK 
SET- FINAL MODE 
WRITF BLOCK 
READ-NEXT— 
SUBTRACT 
SIX - O H S 
ZERO A 

- FO RM- 

SUM 

TEST END FTLE 
RESTORE 

-B L OC K - 

SET INDEX 

—SET- R EA D - 

RUMP BLOCK CT 
SET INDEX TO N — 
SET FIRST WD 

BLOCK NO- 

IS THIS IN 05 

—BUMP—WO- 

TST BLOCK FILL 

-T O WRITE - 

SET UP 
AND OBTAIN 
WORDS 

- D E LETE- 

FROM 
TA6I. E 

SET FIRST WORD 

IF OOD - 

SET RPT 2 

-AND- 

STORE 

IF EVEN SET RP3 
SPLIT LAST 

♦ BLANKS- 

SAVE 

SPLIT-FI-RST- 

♦PART 


45727 
4 = 7 3© 
4573 1 
4573? 

45733 

45734 
4573= 

45735 
45737 

45740 

45741 
4574? 

45743 

45744 

45745 

45745 

45747 

45750 

45751 

45752 

45753 

45754 

45755 
4=755 
45757 
45760 
4576 1 


4= OOOOO 
37 02107 
14 74210 

I 1 02244 
37 02075 

II GGOH 
47 02060 

I 1 02745 
4= OOOOO 

-11 07245- 
37 02075 
61 OOOOO 
75 10003 
17 0234-0- 
b f OOOOO 
61 -OOOOO- 

II 00066 
55-31000 
61 OOOOO 

- 4 V 00014 
4 = OOOOO 
3-7—024-07- 
14 74210 
—Hi- 643K> 
7= 20170 
2-3 01640 
11 00007 


02111 
02 107 
01610 
31000 
02070 
3200O 
02062 
34 000 
02063 
31000 
02071 
00073 
02067 

07247 
02000 
00074 
00014 
00006 
3 100O 
02072 
OOOOO 
-02077- 
01610 
0+640 
02103 
04 521 
32000 


45763 

45764 

45765 

45767 

457-7© 

45771 

4=77? 

45773 

45774 

45775 

45776 

45777 

46000 

46001 

46002 

46003 

46004 

46005 

46006 

46007 
46 0 10 
4601 1 
46 ©4-2 

46013 

46014 

46015 
46046 
46017 
4602© 
46021 


3? 01610 OOOOO 
—4 7 02107 0 2052 
7= 20170 OOOOO 
2 1 046 4- 0- 0 + 524- 
11 00010 00011 
37. ©21-07 -02 10O 
21 00012 00062 
—M- 00040 00015 
1= 02066 ©2116 
-14 OO OOO 32 000 

43 00012 02123 
2 1 _ 024 1-6 -0225? 
41 00015 02116 
4= 00000-02077 
1= 02116 02125 
7= 30004 02126 
1 1 OOOOO 0230O 

-5-5 024-25 31025 
16 31000 02130 

44 0000 7 OO OOO 
16 02301 02147 
14 02301 310 0 0 
4/1 02 136 02134 
V= 0200 4 021 46 
4= OOOOO 02146 
1= 02000 0214a 
31 02303 0002? 
35 02253 02304 
2? OOOOO 02303 
31 02302 00022. 
3= 02303 02303 











HZ27 

LT 

OOOOO 

A 

HZ2P 

AT 

MM 1 1 

RFC? 

HZ2P 

RP 


HZ31 

HZ3C 

TP 

3F02 


HZ31 

RS 

I 02 

CP04 

HZ3? 

zj 

H703 

FF20 

CDOO 

TV 

MM IP 

CD3? 

CDO i 

ef 


MM 1 ? 

CDO? 

TP 

'1M 1 3 

I 05 

CDO 3 

R J 

C 03 1 

0024 

CDOU 

T P 

CP05 

I 05 

CDOR 

R J 

"03 1 

00 33 

CD06 

SP 

RFD4 

00030 

CD07 

I T 


A 

CHOP 

EJ 

4M 1 4 

VC 34 

COOP 

rA 

I 01 

OP 04 _ _ 

CD 1 0 

RA 

CD32 

CP07 

CD 1 1 

M J 

OOOOO 

CDO 1 

CD 1 ? 

RP 

3000P 

CD j 4 

CD 1 3 

RS 

3F00 

RF 00 

CD 1 4 

ER 

OOOOO 

A 

CD 1 R 

ER 

1 0000 

AROO 

CD 1 6 

ER 

1 0000 

A 

CD 17 

RS 

CD? 5 

MM 1 5 

CD 1 P 

TP 

CP 06 

I 06 

CD 1 P 

SP 

A 

-06 

CD20 

LO 

ABOO 

01 

CD2 1 

OA 

OPjDU 

A 

CD22 

l_Q 

MM 16 

01 

CD?3 

0 J 

CD 1 o 


CD24 

RJ 

r 023 

CD 1 ? 

CD?S 

AT 

BFna 

P.FOU 

CD?6 

RA 

CD?5 

MM 1 7 

CD27 

IJ 

I 06 

CD 1 P 

CD2P 

RP 

30004 

CD30 

CD?P 

R A 

OF 04 

RF no 

CD30 

IU 

I 05 

CD 1 4 

CD3 1 

RP 

3 0004 


CD32 

TP 

RF04 


CD33 

R J 

CD?3 

CD 14 

CD34 

TU 

CD?5 

CD36 

CD3S 

TP 

A 

0 

CD36 

OT 


AR01 

CD37 

RS 

Q 

ABO 1 

CD3P 

SP 

AR01 

04 

CD 30 

AT 

Q 

A 

CD40 

MJ 


CD? 5 

TROO 

TP 

MM 1 P 

TRO 5 

TRO 1 

TU 

0020 

TR05 

TR02 

FP64 

4 1 0 

ARGO 

TR03 

TP 

OPOP 

I 05 

TR04 

RP 

3 )004 

TR 06 

TR05 



B 

TR06 

TU 

TR05 

TP 07 

TR07 

SP 


30 

TROP 

l T 


A 

TROP 

EJ 

MM 14 

VC 34 

TRIO 

RA 

TR05 

MM 1 9 

TR1 1 

RA 

I 01 

CP04 


TOP 

+BLAWKS 
STORF AND 

_ JTS-T—IN.DE-X_ 

IF LAST CORR 

TOFINAI_MODE 

SET FIRST STORE 
START CD RDR 
ROW TND TO 8 

ROW INDEX TO 2 
TO RE AD ZONE 
IF FIRST 
WORD IS START 
DO NOT READ 


RUMP STORE 

TO R EAD_ 

CLEAR WORKING 
_ STORAGE 
READ 

.CARD_ 

ROW 

SET FOR ROW SUM 
WD IND TO 3 
ENT ER S UM 
p OSlT COLUMN 


TEST END 
—COMPUTER -WO— 
SET FOR DIGIT 

RO W - SUM - 

RUMP SUM ADD 

IS ROW-DONE- 

TOT AL 


IS CD DONE 

STORF_ 

CARD 

-SEX-EQR—ZONE_ 

SET LOGICAL MP 
Ji/QRDTO—Q— 

ONES COMMON 
ONES NOT COMMO 
ONES COM TO 20 

+OTHFRS _ 

TO SUM 

SET FIRST STORE 
AND BUFFER 
JiEAD BLOCK . 

SET INDEX TO 5 

-TRANSFER_ 

BLOCKETTE 

IF FI RST_ 

WORD IS 

START_ 

DO MOT READ 
BUMP. TRANSFER. _ 
RUMP LINF COUNT 


4602? 

- 46023 
4602A 

46025 

46026 

46027 
4603C 
4603|- 
4603? 

_ 46033- 
46034 

- -A60-35- 
46036 

_ 46037- 
4604c 

- 4604L 
4604? 
46043 - 
46044 
46046- 
46046 

-- 46047 
46050 

- 4605 V 
4605? 
4 6053 - 

46054 

46055 

46056 

46057 
4606C 
4 60 6 1 
4606? 

. 46063 
46064 
46065- 
46066 

- 46-06-7- 
4607 0 

_4607-1- 

4607? 

46073 

46074 

46075 

46076 
_.46077. 

46 100 
46101 
46 10? 
464E>3 
46 1 04 

_461.05 

46 1 06 
46 1 07 
46 110 
—46 1 1 1 
46 11? 
—-464-T3- 
46 114 


2? 00000 
-3 C 02254 
7 C 00000 
_U.j023.05- 
23 00011 
A 7 -02 -144 
16 02263 
4 7.-00000- 
1 1 02256 


1 1 00063 
37 02244- 
31 02304 
-22 OOOOO 
47 02257 
-24— 000 1 0 - 
21 02212 
-46 OOOOO 
7 C 30010 
-23- 02300 
76 OOOOO 
-76 4-0000 
76 10000 
2 T 02 20 3 
1 1 00064 
-31 32000 
5 C 01610 


^23 02203- 
11 00064 
3 1 ^-DOG¬ 
S' 5 01610 
5? 0006? 
5 R 02261 
—44 0547-5 
37 02201 
3 C 02304 
21 02203 
44 00015 
7R 30004 
—21 0530A 
41 00014 
—7* 30004 
11 02304 
.37 -0220-4 
1 r 02203 
11 32000 
51 OOOOO 
23 34000 
31 01611 
3 C 3 1000 
4 C OOOOO 
11 02263 
1 K 02176 
14 64440 
11 00066 
7 K 30004 
00 OOOOO 
1* 0 2230 
31 OOOOO 


32000 
02305- 
0?. 1 50 
-OOOOO 
0006? 
05076 
0221 2 
02255 
0001 4 
02202 
00014 
02213 
00036 
32000 
02046 
41006? 
00065 
02153 
02 1 7n 
02300 
32000 
-04640 
32000 
02560 
00015 
00006 
00001 
-35000 
0000 1 
-OOOOO 
02 166 
0230A 
0226? 
02175 
022 1 O 
02 300 
0217O 
-OOOQO- 
00000 
02 4-70 
02216 
31000 
016 11 
0161 l 
00004 
32000 
02203 
02230 
02230 
0161 0 
00014 

OOOOO 

02232 

00036 


43 02257 02046 
21 02230 02264 
21 00010 00062 
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TR 1 2 
TR1 t 

MMOO 
MMOl 
MM02 
MM03 
MM04 
MM05 
MM06 
MM07 
MMOP 
MMOP 
MM 1 0 
MM 1 1 
MM 1 2 
MM 1 3 
MM 1 u 
MM 15 
MM 1 6 
MM 17 
MM IP 
MM IP 
MM20 
xsoo 

CSOl 

START 


IJ I 05 TP 04 

MJ- T R 01 

77 R 

—24 -B— 

00 00000 01575 R 

01 30152 00404 P 

24 05031 20104 R 

13 03032 20404 R 

02 00200 20000 R 

02 00200 30000 R 

02 00200 aoooo R 

00 00004 O000C R 

00 00000 10101 R 

ol 01010 00000 -B— 

40 0O0O0 00005 R 

—+0 -B- 

00 65652 45465 B 

00 00004^)0004-B— 

37 37373 73737 R 

oo ooon i oooo-i-B— 

TP RF Op 

O0 0002# -0 000 4-R- 

30 R 

RP 301Q2 CPOO- 

TP 0S02 CROC 

- OSOO - 


TST END BLOCK 
RFAD AGAIN 
MASK 
70 JO— 

ADDRESS DUMMY 

tafefs— 

5H0RTR 
GOQOBft 
REWIND 2 

-3- 

4 

4 in— y— 

SPACES BOTTOM 
SPAOES-TOF 
START CD ROR 

pro 

XS3 START 
4 1N U AN D -V- 
LOOP TESTER 
1 IN U A NQ-V— 
DUMMY 

AOV WO - 

24:0 

PROGRAM - 

TO CORE 


45115 41 00014 02227 

40416 4f 00000 02224 

46117 00 00000 00077 

46120 00 00000 00024 

46121 00 00000 01576 

46 1 22 —04—304 52 00404 


46123 24 

45 i 24 -L3- 
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TAPE REWIND CONTROL 

WRITE END-OF-FILE AND/OR REWIND N TAPES 
TAPE REWIND CONTROL 
BEGINNING-OF-JOB PRINTER TAPE MARK 
PRINTER OUTPUT TAPE POSITIONER 
BEGINNING-OF-JOB PRINTER TAPE MARK 
BEGINNING-OF-JOB PUNCH TAPE MARK 
PUNCH OUTPUT TAPE POSITIONER 

WRITE JOB TITLE AND BEGINNING-OF-JOB PRINTER TAPE MARK 

PUNCH DRUM CHECK SUM VERIFIER 

READ-WRITE DRUM 

VERIFY DRUM CHECK SUM 

CLEAR CORE STORAGE AND MAIN FRAME 

SET CORE STORAGE TO ZERO 

CLEAR N DRUMS 
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ELEMENTARY FUNCTIONS - TRIGONOMETRIC 

SSBSSS8B3S SSSSSSSSS 3SS3SSSSSS8S3 

ARC TANGENT SUBROUTINE 

COMPUTES PRINCIPAL VALUE OF THE ARC TANGENT. RESULT IS GIVEN 
IN RADIANS. USES RAND POLYNOMIAL. ROUTINE REQUIRES 39 CELLS 
PLUS 3 COMMON. TIMING ABOUT 4.2 MS. 

SINE AND COSINE SUBROUTINE 

COMPUTES THE SINE OR COSINE OF AN ANGLE GIVEN IN RADIANS. 

USES RAND POLYNOMIAL. ROUTINE REQUIRES 61 CELLS PLUS 2 
COMMON. TIMING ABOUT 3 MS. 


ELEMENTARY FUNCTIONS - EXPONENTIAL AND LOGARITHMIC 
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EXPONENTIAL SUBROUTINE 

COMPUTES E TO THE X FOR ALL X LESS THAN 72. USES ECONOMIZED 
POLYNOMIAL. ROUTINE REQUIRES 45 CELLS PLUS 2 COMMON. TIMING 
ABOUT 3.1 MS. 

NATURAL LOGARITHM SUBROUTINE 

COMPUTES THE NATURAL LOGARITHM OF THE ABSOLUTE VALUE OF X. 
USES A RAND POLYNOMIAL* ROUTINE REQUIRES 55 CELLS PLUS 3 
COMMON. TIMING ABOUT 4 MS. 
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ELEMENTARY FUNCTIONS - ROOTS AND POWERS 

sz:sss:: = s ssrsssass assies sss ssssss 

SQUARE ROOT SUBROUTINE 

COMPUTES THE SQUARE ROOT OF THE ABSOLUTE VALUE OF X, ROUTINE 
REQUIRES 22 CELLS PLUS 4 COMMON. TIMING 1.4 MS. 

SQUARE ROOT SUBROUTINE 

COMPUTES THE SQUARE ROOT OF THE ABSOLUTE VALUE OF X. AN 
ERROR RETURN RESULTS IF THE RADICAND IS NEGATIVE. ROUTINE 
REQUIRES 25 CELLS PLUS 4 COMMON. TIMING 1.5 MS. 
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APPROXIMATIONS - TABLE LOOK.-UP AND INTERPOLATION 


BIVARIATE POLYNOMIAL EVALUATION SUBROUTINE 

EVALUATES A BIVARIATE POLYNOMIAL OF TOTAL DEGREE N. ROUTINE 
REQUIRES 36 CELLS PLUS 4 COMMON. EACH POLYNOMIAL REQUIRES 
((N+2)(N+l)/2)+5 CELLS FOR COEFFICIENT STORAGE. NO OUT-OF¬ 
RANGE TEST IS PERFORMED. TIMING O.18N*N+0•72N+1.056 MS. 

BIVARIATE TABLE INTERPOLATION 

SELECTS A SUITABLE 3 BY 3 ARRAY OF FUNCTION VALUES FROM AN 
M BY N ARRAY IN CORE. PERFORMS BIVARIATE INTERPOLATION IN 
THIS 3 BY 3 ARRAY BY FITTING AND EVALUATING 3 QUADRATICS IN 
Y» FOLLOWED BY ONE IN X. AN OUT-OF-RANGE ERROR RETURN IS 
PROVIDED. ROUTINE REQUIRES 161 CELLS PLUS 12 COMMON. VALUES 
OF X» Y» AND Z REQUIRE M+N+M*N CELLS. TIMING AVERAGES ABOUT 
16 MS FOR A 10 BY 10 ARRAY. 


MATRICES. VECTORS. AND SIMULTANEOUS LINEAR EQUATIONS 
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MATRIX INVERSION 

INVERTS A MATRIX STORED IN CORE STORAGE. USES AN ELIMINATION 
METHOD. THE STARRING ELEMENT IS THE LARGEST IN THE COLUMN. 
BUT THE COLUMNS ARE USED IN ORDER FROM LEFT TO RIGHT. THE 
ORIGINAL MATRIX IS DESTROYED. AND IS REPLACED IN STORAGE BY 
THE INVERSE. THE ROUTINE REQUIRES 171 CELLS PLUS 2N+8 
COMMON. A 61 BY 61 MATRIX CAN BE INVERTED IN A 4096 WORD 
MACHINE IN ABOUT 100 SECONDS. 
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INPUT - BINARY 

bssss ssescas 

II UA CSB1 0 ABSOLUTE BINARY LOADER 

Il.UA CSB1 1 LOADS SHARE STANDARD NON—RELOCATABLE BINARY INFORMATION CARDS 
II UA CSB1 2 AND TRANSFER CARDS. ALSO LOADS PROGRAM CORRECTIONS PUNCHED 

II UA CSB1 3 IN ROWS 8 TO 12 OF TRANSFER CARDS* PROGRAM IS SELF-LOADING 

II UA CSB1 4 AND USES CELLS 0 TO 71. 

II UA CSB2 0 ABSOLUTE BINARY LOADER 

11 UA CSB2 1 LOADS SHARE STANDARD NON-RELOCATABLE BINARY INFORMATION CARDS 
II UA CSB2 2 AND TRANSFER CARDS. ALSO LOADS PROGRAM CORRECTIONS PUNCHED 

II UA CSB2 3 IN ROWS 8 TO 12 OF TRANSFER CARDS. PROGRAM IS NOT SELF- 

11 UA CSB2 4 LOADING. PROGRAM REQUIRES 54 CELLS PLUS 3 COMMON. 


INPUT - COMPOSITE 

SSSSS SSC8S&S.S8 

14 UA DBC1 0 DECIMAL* OCTAL* BCD LOADER 

14 UA DBC1 1 USED WITH UA TSM 2 OR UA CSH 2. CONTROLS TAPE PROGRAM UA TSM 
14 UA DBC1 2 2 OR TAPE OR CARD PROGRAM UA CSH 2 TO READ BCD INFORMATION 

14 UA DBC1 3 INTO CORE. CONVERTS THIS INFORMATION TO BINARY* - FIXED OR 
14 UA DBC1 4 FLOATING DECIMAL NUMBERS BEING CONVERTED TO FIXED OR FLOATING 
14 UA DBC1 5 BINARY NUMBERS* AND DECIMAL OR OCTAL INTEGERS BEING CONVERTED 
14 UA DBC1 6 TO BINARY INTEGERS. ALSO READS AND STORES HOLLERITH LABELS* 
14 'JA DBC1 7 COMMENTS. ETC. INPUT CARD FORMAT IS VARIABLE. LOADING MAY 
14 UA DBC1 8 BE CONTROLLED BY TRANSFER CARDS. ROUTINE REQUIRES 372 CELLS 
14 UA DBC1 9 PLUS 24 COMMON. 


OUTPUT - COMPOSITE 

BSSSSS .333SC33S 

J4 UA BDC1 0 GENERALIZED PRINT PROGRAM 

J4 UA BDC1 1 USED WITH UA STH 1 OR UA SPH 1. CONVERTS FLOATING BINARY 
J4 UA BDC1 2 NUMBERS TO FIXED OR FLOATING BINARY CODED DECIMAL NUMBERS. 
J4 UA BDC1 3 CONVERTS BINARY INTEGERS TO BINARY CODED DECIMAL INTEGERS. 
J4 UA BDC1 4 ARRANGES THIS BINARY CODED DECIMAL INFORMATION IN ANY ARBI- 
J4 UA BDC1 5 TRARY FORMAT* INTERSPERSING IT AS SPECIFIED WITH HOLLERITH 
J4 UA BDC1 6 LABELS. COMMENTS* ETC. CONTROLS TAPE PROGRAM UA STH 1 OR 
J4 UA BDC1 7 TAPE AND/OR PRINTER PROGRAM UA SPH 1 TO PRODUCE THE FINAL 
J4 UA BDC1 8 PRINTED RESULT. ROUTINE REQUIRES 402 CELLS PLUS 60 COMMON. 





INFORMATION TRANSFER 

SSSSZS22:3SS »ax4S3tiS3£.S33X 

KO UA CCB1 0 BINARY CHECK SUM CORRECTOR 

KO UA CCB1 1 READS* ONE AT A TIME® ANY NUMBER OF NON-RELOCATABLE BINARY 
KO UA CCB1 2 CARDS* RECOMPUTES THE CARD CHECK SUMS* AND PUNCHES OUT 
KO UA CCB1 3 CORRECTED CARDS« 

KO UA CSH2 0 READ BCD TAPE OR ON-LINE CARD READER 

KO UA CSH2 1 READS EITHER BCD TAPE (WITH REDUNDANCY CHECKING) OR HOLLERITH 
KO UA CSH2 2 PUNCHED CARDS* AS DETERMINED BY SENSE SWITCH. INFORMATION 
KO UA CSH2 3 READ IS STORED IN CORE IN BCD FORM. ROUTINE REQUIRES 167 
KO UA CSH2 4 CELLS PLUS 9 COMMON. 

KO UA CTH1 0 OFF-LINE CARD READER SIMULATOR 

KO UA CTH1 1 SIMULATES THE OFF-LINE CARD-TO-TAPE MACHINE. THE TAPE IS NOT 
KO UA CTH1 2 CHECKED FOR WRITE ERRORS® 

KO UA RWD2 0 READ-WRITE DRUM PROGRAM 

KO UA RWD2 1 WRITES A BLOCK OF INFORMATION FROM CORE TO DRUM* OR READS A 

KO UA RWD2 2 BLOCK OF INFORMATION FROM DRUM TO CORE® READING IS CHECKED 

KO UA RWD2 3 BY AN ACL CHECK SUM FORMED AND RECORDED DURING WRITING. 

KO UA RWD2 4 ROUTINE REQUIRES 30 CELLS PLUS 3 COMMON. 

KO UA SPH1 0 BCD OUTPUT PROGRAM 

KO UA SPH1 1 WRITES A BCD RECORD ON TAPE AND/OR PRINTS IT ON THE ON-LINE 

KO UA SPH1 2 PRINTER* AS DETERMINED BY SENSE SWITCHES. ROUTINE REQUIRES 

KO UA SPH1 3 109 CELLS PLUS 33 COMMON. 

KO UA STH1 0 BCD TAPE WRITING PROGRAM 

KO UA STH1 1 WRITES A BCD RECORD OF ARBITRARY LENGTH ON TAPE. ROUTINE 
KO UA STH1 2 REQUIRES 15 CELLS* NO COMMON* 

KO UA TCH1 0 OFF-LINE PUNCH SIMULATOR 

KO UA TCH1 1 SIMULATES THE OFF-LINE TAPE-TO-CARD MACHINE. 72 COLUMNS ARE 
KO UA TCHI 2 PUNCHED PER CARD. THE TAPE IS REDUNDANCY-CHECKED* BUT THE 
KO UA TCHI 3 CARDS ARE NOT CHECKED AT THE PUNCH BRUSH STATION* 

KO UA TPH1 0 OFF-LINE PRINTER SIMULATOR 

•KO UA TPH1 1 SIMULATES THE TAPE-TO-OFF-LINE-PRINTER MACHINE. THE TAPE IS 
KO UA TPH1 2 REDUNDANCY-CHECKED* BUT NO PRINT WHEEL ECHO CHECKING IS 
KO UA TPH1 3 PERFORMED. THE CARRIAGE CONTROL (PROGRAM DEVICE) IS NOT 
KO UA TPH1 4 SIMULATED. PRINTER OPERATES AT HALF SPEED FOR RECORDS 
KO UA TPH1 5 CONTAINING MORE THAN 12 CHARACTERS. 

KO UA TSB3 0 LOAD BINARY CARD IMAGES FROM TAPE 

KO UA TSB3 1 READS BINARY CARD IMAGES CONTAINING INSTRUCTIONS AND/OR DATA 
KO UA TSB3 2 FROM TAPE INTO CORE AND* UPON ENCOUNTERING THE IMAGE OF A 
KO UA TSB3 3 TRANSFER CARD* INITIATES THE EXECUTION OF THE PROGRAM THUS 
KO UA TSB3 4 LOADED. ONLY THE IMAGES ON TAPE OF SHARE STANDARD BINARY 
KO UA TSB3 5 INFORMATION CARDS AND TRANSFER CARDS CAN BE HANDLED. 

KO UA TSM2 0 READ TAPE WITH REDUNDANCY CHECKING 

KO UA TSM2 1 READS* WITH REDUNDANCY CHECKING* ANY TAPE WRITTEN BY OR FOR 
KO UA TSM2 2 THE 704® THE ENTIRE RECORD MUST BE READ AND STORED. ROUTINE 
KO UA TSM2 3 REQUIRES 26 CELLS® NO COMMON. 
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EXECUTIVE ROUTINES - ASSEMBLY 

s:ss:s:3 = = = s sssassss sasssssss 

SHARE ASSEMBLER 

ASSEMBLES PROGRAMS WRITTEN IN SYMBOLIC FORM# INPUT AND OUT- 
PUT MAY BE EITHER OFF-LINE OR ON# PRINTED OUTPUT INCLUDES 
THE GIVEN PROGRAM IN SYMBOLIC AND THE ASSEMBLED PROGRAM IN 
OCTAL. OUTPUT IS ALSO PUNCHED ON NON-RELOCATABLE BINARY 
CARDS* ON RELOCATABLE BINARY CARDS» ON BINARY CARDS CONTAIN¬ 
ING 24 WORDS EACH* OR IT MAY BE WRITTEN ON TAPE IN NON- 
RELOCATABLE BINARY CARD IMAGE FORM. DECIMAL♦ OCTAL AND 
HOLLERITH DATA MAY BE USED# A LIBRARY OF STANDARD ROUTINES 
IS AVAILABLE ON TAPE. ADDRESS ARITHMETIC MAY BE PERFORMED. 
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DEBUGGING ROUTINES - TRAP MEMORY PRINT 


TRAP DECIMAL MEMORY PRINT 

PRINTS* IN FLOATING DECIMAL 9 OFF-LINE AND/OR ON-LINE* THE 
CONTENTS OF ANY NUMBER OF BLOCKS OF CORE STORAGE. PRINTING 
MAY BE PERFORMED DURING THE EXECUTION OF THE PROGRAM* WITHOUT 
OTHERWISE AFFECTING THE ACTION OF THE PROGRAM IN ANY WAY. 
PRINTING IS SPECIFIED BY CONTROL CARDS* EACH BLOCK BEING 
PRINTED WHEN A SELECTED INSTRUCTION HAS BEEN EXECUTED A 
DESIGNATED NUMBER OF TIMES. PRINTING MAY ALSO BE PERFORMED 
AFTER THE PROGRAM HAS STOPPED. THE ROUTINE IS USUALLY STOREC 
ON A DRUM AND READ INTO CORE STORAGE CELLS 0-511 WHEN NEEDED. 


N1 

UA 

SP02 

0 

N1 

UA 

SP02 

1 

N1 

UA 

SP02 

2 

Nl 

UA 

SP02 

3 

N1 

UA 

SP02 

4 

Nl 

UA 

SP02 

5 

Nl 

UA 

SP02 

6 

Nl 

UA 

SP02 

7 

Nl 

UA 

SP02 

8 



DEBUGGING ROUTINES - TRACING 

FLOW TRACE 

PRINTS THE INSTRUCTION* ITS LOCATION* AND THE CONTENTS OF AC 
MQ» AND INDEX REGISTERS* EACH TIME A TRANSFER IS EXECUTED. 
TRACING IS CONTINUOUS* BUT OUTPUT PRINTING STARTS ONLY AFTER 
A DESIGNATED TRANSFER HAS BEEN EXECUTED A SPECIFIED NUMBER 0 
TIMES* AND IS THEN UNDER SENSE SWITCH CONTROL. OUTPUT. (IN 
OCTAL) MAY BE OBTAINED OFF-LINE AND/OR ON-LINE. THE ROUTINE 
IS USUALLY STORED ON A DRUM AND READ INTO CORE STORAGE CELLS 
0-457-WHEN NEEDED. 
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DEBUGGING ROUTINES *- MEMORY DUMP 

=;s:rr.’rs:~ : s:s£33 En = 3Ks«-:a aasfxa ssss 

CONTROL PANEL PRINT AND OCTAL MEMORY PRINT - (SCOOP) 

PRINTS ALL CONTROL PANEL INFORMATION EXCEPT C(MQ) AND 
C(PROGRAM COUNTER). PRINTS* IN OCTAL* THE CONTENTS OF UP TO 
24 CORE STORAGE REGIONS. OUTPUT MAY BE OBTAINED OFF-LINE 
AND/OR ON-LINE. THE ROUTINE IS USUALLY STORED ON A DRUM AND 
READ INTO CORE STORAGE CELLS 0-476 WHEN NEEDED. 


ALL OTHERS 

sss rssass 

TAPE END-OF-FILE AND/OR REWIND 

WRITES END-OF-FILE AND/OR REWINDS ANY ONE OF THE TEN TAPES 
UNDER CONTROL OF THE SENSE SWITCHES. SELF-LOADING. 

TAPE REWIND CONTROL 

TESTS BITS 1-10 OF WORD IN 7 RIGHT ROW AND REWINDS TAPES IF 
CORRESPONDING BITS ARE PRESENT. LOADED BY UA CSB 1. 

WRITE END-OF-FILE AND/OR REWIND N TAPES 

WRITES END-OF-FILE AMD/OR REWINDS ANY ONE OR MORE OF THE TEN 
TAPES UNDER CONTROL OF THE SENSE SWITCHES. SELF-LOADING. 

TAPE REWIND CONTROL 

TESTS BITS 1-10 OF WORD IN 7 RIGHT ROW AND REWINDS TAPES IF 
CORRESPONDING BITS ARE PRESENT. SELF-LOADING. 

BEGINNING-OF-JOB PRINTER TAPE MARK 

WRITES THE PRINTER BEGINNING-OF-JOB MARK ON LOGICAL TAPE 2. 
SELF-LOADING. 

PRINTER OUTPUT TAPE POSITIONER 

POSITIONS THE PRINTER OUTPUT TAPE AT THE M-TH 1-EJECT 
FOLLOWING THE N-TH 9-EJECT. SELF-LOADING. M AND N ARE 
PUNCHED IN THE 12 RIGHT ROW. 

BEGINNING-OF-JOB PRINTER TAPE MARK 

WRITES THE PRINTER BEGINNING-OF-JOB MARK ON LOGICAL TAPE 2. 
LOADED BY UA CSB 1. 

BEGINNING-OF-JOB PUNCH TAPE MARK 

WRITES THE PUNCH BEGINNING-OF-JOB MARK ON LOGICAL TAPE 4. 
SELF-LOADING. 

PUNCH OUTPUT TAPE POSITIONER 

POSITIONS THE PUNCH OUTPUT TAPE AT THE N-TH BEGINNING-OF-JOB 
MARK. SELF-LOADING. N IS PUNCHED IN THE 12 RIGHT ROW. 

WRITE JOB TITLE AND BEGINNING-OF-JOB PRINTER TAPE MARK 
WRITES ANY SPECIFIED SINGLE LINE JOB TITLE AND THE PRINTER 
BEGINNING-OF-JOB MARK ON LOGICAL TAPE 2. SELF-LOADING. 

PUNCH DRUM CHECK SUM VERIFIER 

COMPUTES THE ACL CHECK SUM OF N CONSECUTIVE DRUMS AND PUNCHED 
THIS CHECK SUM INTO AN APPROPRIATE VERSION OF UA VCS 1. 

READ-WRITE DRUM 

PRODUCES A WRITE-DRUM CARD (UA CSB CORRECTION/TRANSFER TYPE) 
AND A READ-DRUM CARD (SELF-LOADING). THE WRITE-DRUM CARD 
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zo 

UA 

RWD1 

3 

zo 

UA 

RWD1 

4 

zo 

UA 

RWD1 

5 

zo 

UA 

VCS1 

0 

zo 

UA 

vcsi 

1 

zo 

UA 

VCS1 

2 

zo 

UA 

VCSI 

3 

zo 

UA 

VCSI 

4 

zo 

UA 

ZCS1 

0 

zo 

UA 

zcsi 

1 

zo 

UA 

ZCS1 

2 

zo 

UA 

ZCSI 

3 

zo 

UA 

ZCSI 

4 

zo 

UA 

ZCS2 

0 

zo 

UA 

ZCS2 

1 

zo 

UA 

ZCS2 

2 

zo 

UA 

ZCS2 

3 

zo 

UA 

ZCS2 

4 

zo 

UA 

ZDR1 

0 

zo 

UA 

ZDR1 

1 

zo 

UA 

ZDR1 

2 


WRITES A BLOCK OF INFORMATION FROM CORE TO DRUM* THE 
READ-DRUM CARD READS THE BLOCK BACK INTO CORE* VERIFIES ITS 
ACL CHECK SUM* AND TRANSFERS TO THE DESIGNATED INSTRUCTION* 

VERIFY DRUM CHECK SUM 

THIS ROUTINE* USED IN CONJUNCTION WITH UA PCS 1* PRODUCES A 
ONE-CARD SELF-LOADING PROGRAM WHICH MAY THEN BE USED TO 
VERIFY THE ACCURACY OF INFORMATION STORED ON N CONSECUTIVE 
DRUMS. VERIFICATION IS BY MEANS OF ACL CHECK SUMS* 

CLEAR CORE STORAGE AND MAIN FRAME 

RESETS THE DIVIDE CHECK* TAPE CHECK AND MQ OVERFLOW INDI¬ 
CATORS* TURNS OFF THE SENSE LIGHTS. CLEARS INDEX REGISTERS 1 
AND 2* AND CLEARS ALL OF CORE EXCEPT 12-71* LOADED BY BINARY 
LOADER UA CSB 1* 

SET CORE STORAGE TO ZERO 

RESETS THE TRAP MODE. AC OVERFLOW. MQ OVERFLOW* TAPE CHECK 
AND DIVIDE CHECK INDICATORS* TURNS OFF THE SENSE LIGHTS* 
CLEARS ALL OF CORE EXCEPT 4-23. AND CLEARS THE ACCUMULATOR 
AND ALL INDEX REGISTERS. SELF-LOADING* 

CLEAR N DRUMS 

PRODUCES A CORRECTION/TRANSFER CARD WHICH* WHEN LOADED BY UA 
CSB 1. CLEARS ANY N CONSECUTIVE DRUMS* 







115 FORMULAS WERE INVOLVED 



1223 INSTRUCTIONS WERE GENERATED 

S 

COMPILATION TOOK BETWEEN TWO AND THREE MINUTES 

A119=A31*(A58*A56/A51)*tA36-A39-A36*A51/A56) 
B119=A32*(A58*A56/A51)*(A37-A40-A37*A51/A56) 
C119=A29*(A58*A56/A51)*<D1-A51/A56) 

D119=A30*A58#A56/A51 

Ell 9=(A58*A56/A51)*({A19*A3)*(A36-A39-A36*A51/A56)♦(A20*A32)* 
(A37-A40-A37#A51/A56)-(A23*A29)*(D1-A51/A56)+A24*A30) 
P120=A57*A59/A52 
A120=A31*P120*(D1-A52/A57) 

B120=A32*P120 

C120*A29*P120*(A42*(D1-A52/A57)+A25*A33*A38> 
D120=A30*P120*(A43-A46~A43*A52/A57+A41*A25*A33) 

E120=A33-"P120 

F120=A44~A47+A24*A30*A41-A52*A44/A57+A38*A23*A29 
H120=P120*(-A19*A31*(D1-A52/A57I+A2Q*A32+A23*A29*A42*(D1“A52/ 
A57 ) +A30*A24* (A43-A46-A43*A52/A57 ) +A25*A33* ( A44-A47+A24*A30* 
A41+A38*A23*A29-A52*A44/A57)) 

A123=A67*A79*A80/A81 

B12 3=(A13+A15)#A79*A67/A81 

C123=A31*A64/A77 

D123=A32*A65/A77 

G123=A30*A66/A77 

P123=A34/A77 

Q123=A35*A34/A77 

R12 3=( (-A79*A78*A67-A18*A80*A67*A79)/A8l+(A94*A35*A34+A19*A31 

*A64+A20«A32*A65+A23*A29*A63+A30*A24*A66-A28*A34)/A77» 

F124=A51*A77 

A124=A31*(A36-A39)/F124 

B124=A32*(A37-A40)/F124 

C124=A29/F124 

D124=A30/F124 

E124=(A19*A31*{A36-A39)+A20*A32*(A37-A40)-A23*A29+A24*A30)/ 
F124 

G125=A77*A82 

A125=A29/G125 

B125=A31#A36/G125 

E125*A53/A82 

A126*A31/R126 

B126=A32/R126 

026-(A42+A33*A38*A25>*A29/R126 

F126=A29*A38 

G126-A304A41 

P126=(A32*A20-A19*A31+A23*A29*A42+A24*A30*(A43-A46KA33*A25*< 

A44~A47+A38*A23*A29+A24*A30*A41))/R126 

G127«A77#A83 

A127=A31/G127 

B127=A42#A29/G127 

C127=A30*A43/G127 

D127=A33*A44/6127 

E127=A60/A83 

F127*(A19*A31-A42*A29*A29-A30*A24*A43-A33*A44*A251/6127 

P128=A77*A83 

A128=A33/P128 

B128=A29*A48/P128 








C128=A31#A4l/P128 

D128=A32*A50/P128 

E128=A30*A62/P128 

F128=A54/A83 

G128=(A25*A33-A23*A29*A48-A19*A31*A49*-A20*A32*A50-A24*A30*A62 
)/P128 

A129=A84*A72 
C129=A84#(A72*A74+A90) 

A130=A72*A85 
C130=A85*(A72*A74+A9Q) 

A141=D 7#A71*A79*A88*A89 
B141=D 7*A79*A88*A89 
C141=D 7*A26*A71*A79*A88*A89 
Al= 11 
A2A=I2S 
82=12 
A3S=I3S 
B3= 13 
A5= 15 
A6S=I6S 
B6= 16 
A7S=I7S 
B7= 17 
A8S=I8S 
B8= 18 
A9= 19 
A10=I10 
A11=I11 
A12=I12 
A2=A2S*A91+B2 

A3=A3S*A95+B3 x 

A6=A6S+A92+B6 
A7=A7S*A96+B7 
A8=A8S*A93+B8 

Z119=A2*A119+A3*B119-A6*C119+A7*DU9-E119 

Z120=-A2*A120+A3*B120+A6*C120+A7*D120+A8*E120*<F120-A6*A29* 
A38-A7*A30*A41)-H120 
A121=A67*((A100-A78)*A79)/A81 

Z123=A1*A123+(A13+A15)♦B123—A2+C123—A3+D123—A6*F123—A7+G123 
+A12*P123-A10*Q123+R123 

Z12 4=A 2 *A12 4+A 3 *B124-A6*C124+A7*D124-E124 
Z125=A6*A125-A2*B125-A3*C125+D125+Z124*E125+Z123*F125 
Z126=A8*A33/(A52*A77)*t<E126)-IF126» *A6~A7*G126>-P126-A2* 
A126+A3*B126+A6*C126+A7*D126 

Z127=A2*A127-A6*B127-A7*C127-A8*D127+Z126*E127-F127 
Z128=A8*A128-A6*B128-A2*C128-A3*D128-A7*E128+Z126*F 128H3128 
Z129=A10*A129+Z119-C129 
Z130=-A10*A130+Z120+C13Q 
X=COSF(Z129) 

Y=S INF(Z129} 

Z131=Z127*X-Z128*Y 
Z132=Z128+X+Z127+Y 
Z133=Z124*X-Z123*Y 
Z134=Z123*X+Z124*Y 
Z141=A9*A141+(A13+A14)+B141—C141 

A135=((A5-A22)*A7Q+A13+A19 i /( t A9-A26 )*A71+A13+A14» 

A139=D 7*A71*A79 
B139=D 7*A79 
C139=D 7*A71*A79*A26 

Z139=A9*A137*Z136*Z136*A139+(A13+A14I*A137*Z134*Z136*B139- 

0 











A137*Z136*Z136*C139 

A143=(All*A73+A13+A15-A27*A73i/<A9*A71+A13+A14-A26*A27) 

Z136=A135*SL+B --— 

X136=Z136*ALP+BET 
X143=A143*ALP+BET 
A137=C0+X136*(C1+X136*(C2+X136*(C3+X136*(C4+X136*(C5+X136* 
C6) ) ) ) ) 

Z143=C0+X143*(C1+X143* t C2+X143*(C3+X143* ( C4+X143*(C5+X143* 

C6) m> 











REM 
REM 
1 REM 
CLA 
FDP 
FMP 
FAD 
FDP 
FMP 
FAD 
FDP 
FMP 
FAD 
FDP 
FMP 
FAD 
STO 
LDQ 
FMP 
STO 
CHS 
FAD 
STO 
CLA 
FSB 
STO 
SXD 
TSX 
LXD 
STO 
LDQ 
FMP 
STO 
LDQ 
FMP 
FDP 
FMP 
FSB 
STO 


X 

Z4 

R4 

R3 

Z3 

X 

R2 

Z2 

X 

R1 

Z1 

X 

RO 

1S+8 

C 

D 

1S+7 


CODING BY ALGEBRAIC TRANSLATION SECTION OF FORTRAN 
Z ■ -A 4 (B-C*D»*<E*SINF(B-C*D))*{F-C*D)/<RO 4 X*(R1 4 X*(R2 
+ X*(R3 + X*R4/Z4) /Z3) /Z2) /Zl) 


DENOMINATOR 
C -H D 


F 

1546 
B 

1547 
1S45 
1S44*4 
SIN*4 
1S44*4 
1S44 

E 

1544 
1S43 
1S43 

1545 

1548 

1546 
A 

Z 


F - C * D 
B - C ■* D 

( B - C D) 

E (B-C^D) 




Stacking Analysis 


Reference: 


T. C. Fry - "Probability and Its Engineering Uses" 
Chapter X - D. Van Nostrand Co. 


Assumptions: 


1 . 


Runs average 


4 minutes each. 


t 


2. Distribution of length of runs is approximately exponential. 


3* System is in statistical equilibrium; i.e., the probability 
of its being in any specified condition is independent of the 
time at which it is examined. 


4. Machine change-over time between one run and the next is 
negligible. 


5. The number of job sources is large compared to the number of 
machines. 

6. Any job can be handled on any machine. 

7- All machines are in use whenever there is enough work available. 

8. Any run which cannot be handled immediately is held until a 
machine becomes available. It Is then handled at once. If 
several runs are being held, they will be serviced in the 
order in which they originate. 
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Tabulation of Typical Results 


Percentage of Idle Time 

Delay in Minutes 

One 

704 

Two 
704's 

Three 

704's 

Four 

704's 

Average 

One out 
of three 

One out 
of ten 

20. 

10. 

6.6 7 

5. 

11 

19 

^3 

10. 

5- 

3-33 

2.5 

25 

4l 

m 

89 

5- 

2-5 

1.67 

1.25 

52 

85 

l8l 

2-5 

1.25 

0.83 

0.62 

108 

173 

365 

1.25 

0.62 

0.42 

0.31 

219 

349 

734 


Note that these results may easily be modified, for cases where the 
average length of run is greater than or less than 4 minutes since, to a 
close approximation, the delay is directly proportional, to the average length 


of run. 
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DECIMAL CARD READ ROUTINE 
Compilable: Minimum 1103A 
Operations Research Office-Sumner 
Revision of CV131-Kauser and Gerkin 


A. PURPOSE 

This routine reads decimal numbers from cards and converts them into 
the appropriate binary numbers, sealed as desired by the programmer. 

B. USAGE 

1. LEADING LINES 

Sub OR2 142 

Temps 0 0 

Inout 1 0 

2. INPUT 

The input consists of two basic parts. The actual input to the 
routine is a control word having the following composition: 

AB OPPPP ODDDD (octal) 

/ 

A: First- octal digit, controls picking of cards in either channel 
of the Bull reproducer. 

A = 0 Do not pick 
A = 1 Pick a read card 
A = 2 Pick a punch card 
A * 3 Pick both read and punch cards 

B: Second octal digit, controls the reading operation. 

B = 0 Do not read 
B = 1 Read a card 

OPPPP: Magnetic core address of the first parameter word. 

ODDDD: Magnetic core address -where the number from the first 
card field is to be stored. 

This control word supplies the subroutine with the location of 
the parameter words which have the following composition: 

FF SSBBL LRRZZ (octal) 

FF: Flag for final parameter word 

FF = 77 (octal) for final parameter word 
FF = 00 otherwise 
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SS: Binary scaling factor (number of bits to the right of 
the binary point) of converted number. 

BB: Number of blank or unused card columns to the left of 
the field. (See definition of field under D.) 

LL: Number of columns (digit positions) to the left of the 
decimal point. 

EE: Number of remaining columns in the field, exclusive of 

sign (number of decimal digits to the right of the deci¬ 
mal point plus one for the decimal point). 

ZZ: Not used. 

Range of parameters: 

DECIMAL OCTAL 

00 < SS < 35 00 £ SS < 43 

00 < BB < 63 00 < BB < 77 

00 T LL < 10 00 < LL < 12 . 

00 V EE < 11 00 £ EE < 13 

01 < LL + BE < 11 01 < LL 4 EE ^ 13 

These parameter words should be stored as constants by the 
programmer in consecutive order. To read a card containing 
n fields (numbers) n consecutive parameters must be stored 
beginning at the address specified by the u-address of the 
control word. The nth parameter should contain 77 (octal) 
as the first two digits. 

3. BSCOVEBY PROCEDURE 

In case of a card machine failure or an accidental stop in the 
middle of a card cycle, the current card may be reread: reposition 
the cards, set (PAK) = 00000, and Start. 

4. NUMBER OF TAGS USED = 23 (decimal) 

5. RUNNING TIME ■ 

The programmer has 14 ms. computing time available between 
references to the card routine. If this time is regarded as a maxi¬ 
mum, the Bull reader is virtually in a state of free run, and can 
attain a reading speed of approximately 120 cards per minute. 

C. RESTRICTIONS 


The only restrictions are those caused by the parameter ranges. 
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D. ADDITIONAL PROGRAMMING AND OPERATING INFORMATION 

This card routine operates on a two-cycle basis, making more efficient 
use of the card cycle time than previous routines. As a result, as many as 
forty fields may be read from each card without causing any timing diffi¬ 
culties. Two basic operations are performed during the 18-point card cycle. 
The first five points (about 140 ms.) are used to decode the control words and 
to perform the final conversion of information read during the previous read 
cycle. The remainder of the card cycle is used to read information from the 
present card and convert this information into binary coded decimal form. 
The~~binary coded decimal information is then converted to binary and scaled 
during the first part of the next read cycle. Thus, although it takes two 
card cycles to complete the operation of reading and converting, the net 
effect is conversion of one card each card cycle. 

A field consists of a number of consecutive card columns. The last 
column of a field is reserved for the sign of the decimal number stored in 
that field. An 11-punch signifies a negative number, no punch (blank column) 
signifies a positive number. A combination 12, 3 , and 8 punch in one column 
may be used to represent a decimal point. 

Fields need not be adjacent—there may be unused columns, punched or 
unpunched, between them—nor need they be alike in size. 

The read side of the Bull must be cycled once before reading. The 
following coding is an example of a routine to read n cards, each of which 
contains £ decimal numbers. 


TAG 

OPS 

U 

V 

Comments 


0R2 

Cycle 


Pick a read card 


0R2 

Read 


Read (only) first card 

Set 

TP 

K 

IJC 

Set counter for n -1 


0R2 

Read - 1 


Read and convert 


RA 

Read - 1 

Step 

Advance data storage 


IJ 

IJC 

Set - 1 

Check counter 


MS 




Cycle 

10 



Control word 

Read 

11 



it ti 


11 

Param 

Data 

it it 

K 



n - 1 

No. of cards, minus one 

IJC 

X 



Counter for n reads 

Step 



P 

Constant 

Param 

B 

• 

1 st. parameter word 

• • 

Parameter words 


• 

• 

B 

• • 

• • 

pth. parameter word 


Data 

Eeserv 

pn 

pn 

Region at which data 


is to be stored 

Note that the above coding assumes the format on each of the n cards 
to be the same. In other words, any particular field must have the same size 
and location on all of the n cards, or else a new set of jd parameter words 
must be used for each card. 
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The information read from the card is stored within the card routine in 
coded decimal form. Thus, if the subroutine is destroyed between card cycles, 
this information will not be converted on the following card cycle. 
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TAG 

OPS 

U ADDRESS 

y 

,3 T JE 

,0R2 

y 

^y'TT^rDQ 
, iiu'i- - 

,0 

y 

.INCUT 

,1 

y 

,MJ 

y 

y 

,ALARM 

y 

,EXIT 

,MJ 

y 

,P 

,x 

y 

y 

,TP 

,BODY-2 

y 

,QT 

,p 

y 

,ZJ 

,BODY 

y 

,07 

y 

y 

,RJ 

,PICK+1 

,BODY 

,TP 

,P 

y 

,RJ 

.GO 

,PAR 

,x 

y 

y 


y 

,G0 

,MP 

,K 

y 

,TU 

,A 

y 

,TV 

,A 

y 

,L<? 

, A 

y 

,SP 

.MASK+4 

y 

,QA 

,KASK-1 

y 

,SA 

, A 

y 

,LQ 

,Q 

y 

,QJ 

,OUT+l 

,PICK 

,EF 

y 

y 

,RJ 

,PICK+1 

y 

,RJ 

.PICK+2 


V ADDRESS 

COMMENTS 

,142 

, 

,0 

» 

,0 

y 

,P+1 

.ENTRANCE 

y 

.ALARM EXIT 

,FILL 

.NORMAL EXIT 

y 

.CONTROL Y/ORD 

,Q 

.TEST CONTROL 

, A 

, WORD FOR 

,BODY-1 

. SWITCH 

y 

, SETTING 

.PICK41 

.SET SWITCH 

.PAR 

.SET UP 

,G0 

, ENTRANCE 

, 

, 

.EXIT 

y 

,FILL 

y 

.ROW+4 

.STORE PARAMETER WORD 

.NEG+2 

.STORE DATA WORD 

,3 

y 

,30 

y 

, A 

.EXTRACT PICK CODES 

,1 

y 

,2 

y 

.PICK 

.READ? 

,A 

.START CARD CYCLE 

.PICK+I2 

.CONVERSION SWITCH 

,PICK43 

.READ SWITCH 


$ 

$ 

$ 

3 

$ 

■H. 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 
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TAG 

OPS 

U ADDRESS 

V ADDRESS 

COMMENTS 


J 

,SP 

,G0 

) 

,SET 

-5 

> 

,AT 

,K-1 

, OUT 

, EXIT 

* 

,0UT 

,x 

y 

y 

,ROW WORD 3 

$ 

y 

,SA 

,K 

y 

,ADD READ CODE 

$ 

y 

,RJ 

,PICK+2 

,PICK 

,SET TO READ 

* 

■w 

y 

,RS 

,A 

>A 

t 

$ 

y 

,RP1 

,10 

,OUT+6 

,CLEAR 

-$ 

y 

,TP 

j A 

, MASK*5 

, MATRIX 

$ 

y 

,TV 

,K-2 

y 

,SET RERUN 

* 

y 

,TV 

,READ+6 

,DIGIT 

* 

3 

,READ 

,ERO 

y 

,OUT 

,READ 

$ 

y 

,ER1 

y 

,Q 

, ONE 

$ 

y 

,ER1 

y 

,R WORD 

, ROW 

* 

<3> 

y 

,RJ 

,READ+3 

,READf4 

,LAST ROW SWITCH 

$ 

y 

,TP 

,AWAY+2 

,ADD 


$ 

y 

,TP 

,MASK-1 

,INDEX 

> 

>3> 

y 

,SP 

,K-1 

,9 

> 

$ 

y 

,SA 

,A 

,3 

» 

$ 

,BIT 

,QJ 

,BIT+1 

,BIT+2 

,BIT IN THIS COLUMN? 

$ 

y 

,SA 

,DIGIT 

> 

> 

$ 

y 

,SJ 

,BIT+3 

,READ+7 

,REACHED SENTINEL? 

$ 

y 

,SP 

,A 

» 

» 

$ 

, ADD 

,x 

> 

> 

» 

$ 

y 

,RA 

,ADD 

,MASK+2 

,STEP MATRIX STORE 

$ 

y 

,IJ 

,INDEX 

,READ+6 

,ROW WORD EXHAUSTED? 

$ 

y 

. ,RJ 

,ADD+3 

,ADD+4 

,SWITCH 

$ 

y 

,KJ 

,RWORD 

» 

* 

$ 

y 

,RJ 

,ADDf3 

,READ+5 

» 

$ 


-6- 
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TAG 

CPS 

U ADDRESS 

V ADDRESS 

COMMENTS 


> 

,LQ 

, CUT 

,28 

y 

V 

5 

,RJ 

,ADD+3 

,READ+6 

y 

(* 

if 

) 

,RJ 

,ADD+S 

,ADD49 

,SWITCH FOR SIGN ROW 

M, 

© 

y 

,IJ 

,DIGIT 

,READ 

y 

$ 

y 

,RJ 

,ADD+S 

,CUT+7 

y 

$ 

,R0W 

,RJ 

,READ43 

,READ 

,READ LAST ROW 

S 

* 

,RJ 

,PICK+1 

,PICK+3 

, SET CONVERSION SWITCH 

$ 

) 

,TU 

,AWAY+2 

,STEP+1 

y 

«> 

3 

,RJ 

,NEG+5 

,RCW44 

,SET CONVERSION REPEAT 


J 

O' 

*\ 

,FILL 

» 

y 


,LA3T 

,3J 

,LA3T+1 

,LAST42 

,LAST FIELD? 


* 

,TV 

,PICK4l 

,NEG+5 

,3ET CONVERSION EXIT 


* 

,LQ 

,Q 

,11 

y 


* 

IH 

O' 

*\ 

,KA3K 

,A 

,SET 

$ 

y 

,TV 

,A 

,REM+3 

, SHIFT 


y 

,LQ 

,Q 

,6 

y 


y 

,QT 

,MASK 

,INDEX 

y 

$ 

y 

,LQ 

»Q 

,6 

y 

$ 

y 

jQT 

,MASK 

,RW0RD 

y 

$ 

y 

,LQ 

,Q 

,6 

y 

$ 

y 

,QT 

,MASK 

,0UT 

y 

$ 

y 

,3A 

,A 

,14 

y 

$ 

,S2T 

,AT 

,AWAY+1 

,SST+1 

, SET NEXT INSTRUCTION 

$ 

y 

,x 

> 

y 

y 

$ 

y 

,IJ 

,INDEX 

,NEG+6 

y 

$ 

y 

,RJ 

, AWAY 

,SET+4 

y 

44 

y 

,IJ 

,RW0RD 

,STEP-2 

y 

5* 

y 

,RJ 

, 3TEP4-3 

,REM 

,SHIFT DECIMAL POINT 

$ 
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) 

,RJ 

, AWAY 

,REM 

,CONVERT 

V 

,REK 

,IJ 

,OUT 

,STEP-2 

, REMAINING TERNS 

5 

9 

,TP 

,SET+1 

>A 

9 

S? 

> 

,LT1 

,71 

,Q 

9 

3 

9 

,3P 

,INDEX 

,FILL 

9 

V 

9 

,SA 

,Q 

9 

, ADD ROUNDING TERM 

•J 

9 

,DV 

, SET4-1 

,SET+1 

9 

3 

9 

,RJ 

, STEP 4-3 

,STEP-2 

,SHIFT SIGN 

3 

9 

,QT 

,MA3K+4 

, A 

9 

3 

,NEG 

,ZJ 

,NEG+1 

,NEG+2 

,SIGN NEGATIVE? 

3 

9 

,TN 

,SET4l 

,SET+1 

9 

H 

V 

9 

,TP 

,SET+1 

,FILL 

• ,STORE RESULT 

3 

9 

,RA 

jROW+4 

,MASK+1 

> 

3 

9 

,RA 

,NEG+2 

,K 

9 

3 

9 


9 

,FILL 

9 

$ 

9 

,TV 

, AV/AY+3 

,STEP+3 

9 

3 

9 

,IJ 

,DIGIT 

,STEP+2 

, MATRIX WORD EXHAUSTED? 

3 

9 

,TP 

,MASK+4 

,DIGIT 

f 

9 

4% 

9 

,STEP 

,RA 

,STEP+1 

, MA3K+1 

9 

3 

9 

,TP 

, FILL 

,MASK+5 

, TRANSFER NEW MATRIX WORD 

3 

9 

jLQ 

,MASK+5 

,4 

9 

3 

9 

,RJ 

, STEP+3 

, STEP+4 

, SWITCH 

3 

9 

,SP 

, INDEX 

,2 

9 

3 

9 

,SA 

, INDEX 

A 

9 

3 

9 

,QA 

,MASK+3 

, INDEX 

9 

ft 

, AWAY . 

,MJ 

9 

,FILL 

, CONVERSION EXIT 

3 

9 

,TP 

,K 

, SET+1 

, PRESET 

3 

9 

.AT 

,MASK+5 

jMASK+5 

, PRESET 

3 
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? 

) 

9 

,3ET+2 

9 

$ 

9 


9 

,G0 

9 

$ 

9 

,LA 

9 

9 

9 

$ 

,K 

,x 

9 

,1 

9 
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<j> 


,x 

9 

,1 
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,N 

,X 

9 

,10 

9 

$ 

) 

,X 

9 

,100 

, POWERS 

$ 

5 

,x‘ 

9 

,1000 
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$ 

9 

,X 

9 

,10000 

9 

3 

9 

,X 

9 

,100000 

9 

$ 

9 

,X 

,1 

,000000 

, OF 

$ 

9 

,X 

,10 

,000000 

9 

$ 

9 

,x 

,100 

,000000 

9 

$ 

9 

,X 

,1000 

,000000 

9 

$ 

9 

,X 

,10000 

,000000 

, TEN 

$ 

9 

,X 

9 

,3 

» 

$ 

,MASK 

9 

9 

,77)B 

^EXTRACTOR 

$ 

j 

9 

,1 

,0 

,U ADVANCE 

$ 

9 

9 

A 

,1 

,U AND V ADVANCE 

$ 

9 

9 

9 

,17)B 

> 

3 

9 

9 

9 

,10)B 

> 

$ 

9 

,RESERV 

,9 

,9 

,MATRIX WORD 

$ 

,INDEX 

.,x 

9 

9 

,INDEX 

$ 

,DIGIT 

,X 

9 

9 

,DIGIT 

$ 

,RWORD • 

,X 

9 

9 

,ROW WORD 2 

$ 

9 

,ENDSUB 

9 

9 

9 

$ 
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6 January 1958 


DECIMAL CARD PUNCH ROUTINE 
Compilable: Minimum 1103A 
Operations Research Office-Sumner 
Revision of CV130-Kauser and Gerkin 


A. PURPOSE 

This routine converts binary numbers into decimal, and punches them on 
cards, complete with sign and decimal point. 

B. USAGE 

1. LEADING LINES 

Sub 0R3 173 

Temps 0 0 

Inout 1 0 

2. INPUT 

The input to this routine consists of a control word and a series 
of parameter words. The programmer must supply the routine with the 
control word, which in turn supplies the routine with the location of 
the parameter words and the location of the data which is to be punched. 
The control word has the following composition: 

AB OPPPP ODDDD (octal) 

A: First octal digit, controls picking of cards in either channel 
of the Bull Reproducer. 

A = 0 Do not pick 
A = 1 Pick a read card 
A = 2 Pick a punch card 

B: Second octal digit, controls the punching operation. 

B = 0 Do not punch 
B = 2 Punch a card 

OPPPP: Magnetic core address of the first parameter word. 

ODDDD: Magnetic core address of the first data word. 

The parameter words (one for each data word) have the following 
compositions: 

FF = 77 (octal.) for final parameter word. 

FF = 00 otherwise 
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SS: Binary scaling factor (number of bits to the right of the 
binary point). 

BB: Number of blank or unused columns between previous field 
(see definition of field under D), or edge of card, and 
present field. 

LL: Number of digit positions to the left of the decimal point. 

HR: Number of remaining columns in the field exclusive of sign. 
(EH = 00 - no decimal point and no decimal fraction.) 

ZZ: Flag for zero suppression. 

ZZ = 77 (octal) for zero suppression 

ZZ = 00 for no zero suppression. Only zeros in the integer 
part are suppressed. A zero immediately preceding the deci¬ 
mal point is not suppressed. 

The total size of a field is: LL 4 RE -f 1 

Range of Parameters: 

DECIMAL OCTAL 


00 < SS < 35 

00 < SS < 43 

00 < BB < 63 

00 < BB < 77 

00 < LL < 10 

00 < LL < 12 

00 < RR < 11 

00 < RR < 13 

01 < 11 - RR < 11 

01 < LL - RR < 13 


The parameter words, one for each field, must be stored conse¬ 
cutively, starting at some magnetic core memory location 'OPPFP. 
There must be an equal number of consecutive words starting with 
some magnetic core memory location ODDDD, filled with data for 
the punch routine. 

3. RECOVERY PROCEDURE 

In the event of a card machine failure or an accidental stop in 
the middle of a card cycle, the current card may be punched again. Set 
(PAK) = 00000, and Start. 

4. NUMBER OF TAGS USED = 18 (decimal) 

5. RUNNING- TIME 


The programmer has 17 ms. computing time available between refer¬ 
ences to the card routine. If this time is regarded as a maximum, the 
Bull punch is virtually in a state of free run, and can attain a punching 
speed of approximately 120 cards per minute. 
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c. 


RESTRICTIONS 


The only restrictions are those caused by the parameter ranges. 

D. ADDITIONAL PROGRAMMING AND OPERATING INFORMATION 


Numbers are rounded to the specified number of decimal digits after 
the decimal point before punching takes place. A divide fault occurs if 
an insufficient number of card columns is allowed for the integer portion 
of a field. 


Punching takes place at the third card station in the punch channel. 
Therefore, two punch cards must be advanced before punching can take place. 
This may be done by referencing the card routine twice, supplying the 
appropriate control word. (See composition of control words.) 


A field consists of a number of consecutive card columns. The last 
column of the field is reserved for the sign of the decimal number stored 
in that field. An 11-punch signifies a negative number, no punch (blank 
column) signifies a positive number. A combination 12, 3, and 8 punch in 
one column represents a decimal point. Fields need not be adjacent—there 
may be unused columns, punched or unpunched, between them—nor need they 
be alike in size. f 


It 

and have 
routine. 


is possible to convert and punch as many as forty fields in a card 
1 ? ms. computing time available between references to the punch 
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9 
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,o 

,0 

y 

Sr 


y 
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,1 

,0 

y 
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V 


y 

,MJ 

y 
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,ENTRANCE 

ft 

V 


y 

,ALARM 

y 

y 

, ALARM EXIT 

$ 


,eht 


y 

,FILL 

, NORMAL EXIT 

a 

S? 



,x 

y 


, CONTROL WORD 

$ 


,BODY 

, TP 

,p 

,PAR 

,SET 

$ 


y 

,BJ 

,G0 

,G0 

, W 

A 

V 


y ?AR 


y 

y 

, ENTRANCE 

$ 


y 


y 

,EXIT 

y 

$ 


,-GO 

,MP 

,K+6 

,FILL 

y 

$ 


y 

,TD 

,A 

,LAST-1 

, set parameter pickup 

$ 

e 

y 

,LQ 

,A 

,3 

, 

$ 


y 

,SA 

,A 

,11 

, 

$ 


y 

,TU 

,A 

,ST0RE+7 

,set data pickup 

$ 


y 

,SP 

,K+3 

,32 

f 

$ 


y 

,QA 

, IMAGE-5 

»A 

,EXTRACT pick codes 

$ 


y 

,SA 

,A 

,1 

y 

$ 


y 

,QJ 

,BULL-1 

,BULL-1 

» 

$ 


y 

,QJ 

,PUNCH-1 

, BULL 

, PUNCH? 

$ 


,BULL 

,EF 

, 

, A 

,START BULL 

$ 


y 

,SP 

,G0 

) 

,SET 

$ 


y 

,AT 

,K+5 

,BULLf 3 

, EXIT 

$ 

in 







in 

o 

y 

,MS 

» 

,BULLf3 

,EXIT 

$ 


y 

,SA 

,K+3 

y 

,ADD punch code 

$ 

• 

,PUNCH 

,EF 

» 

,A 

,START BULL 

$ 


y 

,CC 

, IMAGE 

, A 

, 

$ 
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y 

,RPV 

,35 

jPUKCH+A 

y 

A 

V 

y 

,TP 

,A 

, DiAGEfl 

y 

A 

V 

y 

,TV 

,K 

, 

, SET EMERGENCY RERUN 

A 

V 

y 

,TP 

,K+2 

,BULL+3 

y 

A 

y 

,TP 

,PRESET 

, ALL+2 

y 

£ 

tf 

y 

,RJ 

3 ALLfA 

,LAST-1 

, SET SWITCH 

A 

S? 

y 

,LQ 

,FILL 

, 

y 

M. 

£ 

jLAST 

,QJ 

,NEGf4 

y LASTfl 

,LAST FIELD? 

A 

5 

y 

,LQ 

»Q 


y 

$ 

y 

,QT 

,IMAGE-4 

, A 

y 

A 

y 

,SN 

»A 


y 

$ 

y 

,AT 

,PRSSETf5 

,ST0RE-f8 

,SET UP SHIFT ORDER 

$ 

y 

,lq 

,Q 

,6 

y 

A 

& 

y 

,QT 

, IMAGE-4 

,STEP+5 

y 

$ 

y 

,lq 

,Q 

,6 

y 

$ 

y 

,QT 

,IMAGE-4 

,ALL+3 

y 

$ 

y 

,SA 

, A 

,14 

y 

jM. 

,SET 

, AT 

,PRESET+6 

,SET+1 

,SET NEXT INSTRUCTION 

A 

5 

y 


> 


y 

$ 

y 

,LQ 

,Q 

,6 

y 

$ 

y 

,QT 

,IMAGE-4 

,SET+1 

y 

$ 

y 

,SA 

»A 

,14 

y 

$ 

y 

,AT 

,PRESET+7 

,STORE 

,SET NEXT INSTRUCTION 

$ 

,STORE 


» 

t 

y 

A 

*> 

y 

,QJ 

,NEGfl 

,ST0RE+2 

,ZERO SUPPRESSION? 

$ 

y 

,TV 

,NOZERO 

,PRESET-1 

y 

$ 

y 

,RJ 

,NOZERO+8 

,STORE+A 

y 

$ 

y 

,IJ 

,STEP+5 

,NOZERO+3 

y 

$ 
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y 

,SP 

, IMAGE-3 

,19 

y 

$ 

y 

,DV 

,STORE 

,Q 

y 

$ 

y 

,TM 

,FILL 

,STEP+5 

y 

$ 

y 


y 

y 

y 

$ 

y 

,SA 

,Q 

y 

.ADD ROUNDING TERM 

V 

y 

,DV 

,STEP+6 

,A 

y 

$ 

y 

,AT 

,A 

,STORE 

y 

$ 

y 

,RJ 

,NOZERO+8 

,DEC-1 

,L TIKES THROUGH 

$ 

y 

,IJ 

,ALL+3 

, NOZERO+9 

. CONVERSION LOOP 

$ 

.DEC 

, TV 

,K-1 

,NOZERO+8 

.STORE DECIMAL POINT 

$ 

y 

,IJ 

,SETfl 

,STEP+2 

y 

$ 

y 

,IJ 

,SET+1 

,NOZEROf9 

y 

$ 

9 

,TD 

,STORE+7 

,NEG-1 

y 

$ 

y 

,RA 

,LAST-1 

,IMAGE-3 

.STEP PARAMETER 

$ 

y 

,RA 

,STOREf7 

, U'AGE-3 

* 

$ 

y 

,TV 

,ALL+4 

,NOZERO+8 

.SET EXIT 


y 

,SN 

, IMAGE-3 

y 

* 

Ji 

# 

y 

,LQ 

,FHX 

y 


$ 

.NEG 

,QJ 

,NOZERO+1 

,NOZERO+3 

.NEGATIVE? 

$ 

y 

,RJ 

,PRESET-1 

,STORE+3 

> 

$ 

y 

,EJ 

,ALL+3 

,NOZERO 

* 

$ 

y 

,mj 

y 

,NOZERO+3 


$ 

y 

,RJ 

,ALL+4 

,LAST+1 

y 

$ 

y 

. ,HP3 

,3 

,ALL+1 

.SET UP 


y 

,TP 

,PRESET+2 

,ALL+2 

, PUNCH ORDERS 

$ 

.ALL 

,EJ 

,PRSSET+3 

,BDLL+1 

y 

1 

y 

,TV 

,K 

y 

.SET EMERGENC. RERUN 

$ 

y 


5 

y 

.PUNCH 

$ 
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> 

y 

ONE 

A 

V 

y 


y 

y 

, ROW 

V 

,STEF 

3 RF2 

,3 

,ALL 

, STEP 

A 

Sp 

y 

,RS 

,ALL+2 

+ 

, PUNCH ORDERS 

e 

y 

,SP 

,IMA0E-2 

, 

y 

£ 

V 

y 

,AT 

,ALL+2 

,STEP+5 

y 

A 

5 

y 

,AT 

,K+4 

,step+6 

y 

$ 

y 

,x 


» 

y 

A 

5? 

y 

,x 


, 

y 

s 

y 

,SN 

,IKAGE-1 


y 

$ 

,NOZERO 

3 rj 

,PRESET-1 

,NOZERO+1 

,SET NO ZERO SUPPRESSION 

$ 

> 

,AT 

,ALL+2 

,N0ZER0f2 

y 

$ 

y 

,x 

t 

» 

y 

$ 

y 

,lq 

, BULL+3 

,35 

y 

$ 

y 

,QJ 

,ROZERO+5 

,NOZERC+ 8 

, ADVANCE TO NEW CARD FTET.D? $ 

y 

,RA 

,ALL+2 

,K*1 

y 

$ 

y 

»TJ 

. ,PRESET+1 

,NOZERO+8 

, THIRD CARD FIELD? 

$ 

y 

,lq 

,BULL+3 

,8 

y 

$ 

y 



,FILL 

y 

$ 

y 

,SP 

,STORE 

,2 

y 

$ 

y 

,SA 

,STORE 

A 

y 

$ 

y 

,-TP 

»A 

,STORE 

, STORE FRACTIONAL PART 

$ 

y 

,SS 

,A 

,51 

y 

$ 

y 

,ZJ 

,NOZERO 

,FILL 

y 

$ 

,PRESET 

,cc 

,IMAGE+2 

, BULL+3 

,p 

$ 

y 

,cc 

,B5AGE+24 

,BULL+3 

, E 

$ 

y 

,EWO 

y 

,IMAOE+3 5 

, E 

$ 

y 

,EW1 

y 

,IMAGE+11 

S 

$ 
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$ 
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,STEP+5 
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$ 

y 
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$ 

y 
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,STORE 

y 

$ 

y 

y 

3 

, DEC-t-2 

y 

$ 

A 

y 

y 

,G0 

y 

$ 

J 

y 

,12 

y 

,U ADVANCE 

$ 


,B 

,400000 

,000000 

y 

$ 

y 

y 


,2 

y 
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y 

y 

,5 

y 

y 

$ 

y 

,LA 

y 

y 

y 

Hf 1 

y 

, B 

y 

A 

y 

«J? 

y 

, B 

y 


,TABLE 

$ 

y 

,x 

y 

v* 

H 

O 

y 

$ 

y 

,x 

y 

,100 

y 

$ 

y 

,x 

y 

,1000 

, POWERS 

$ 

y 

,x 

y 

,10000 

y 

$ 

y 

,x 

y 

,100000 

y 
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,x 

y 

,1000000 

, OF 

$ 
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,x 

y 

,10000000 

y 

1 

y 

,x 

A 

,00000000 

y 

$ 

y 

,x 

,10 

,00000000 

y 

$ 

y 

,x ' 

,100 

,00000000 

, TEN 

1 

y 

,X 

y 

,3 

y 

$ 

y 

,B 

y 

,77 

, EXTRACTOR 

$ 

y 

y 

A 

y 

* 

$ 

y 

y 

,3 

y 

y 

$ 

y 

y 

A 

y 

y 

$ 
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,RESERV ,36 

,36 

,IMAGE REGION 
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A. PURPOSE 

This routine allows the programmer to include alpha-numeric information, 
titles, and headings in any punched card output. 


B. USAGE 

1. LEADING LINES 

Sub 0R4 75 

Temps 0 0 

Inout 1 0 

2. INPUT 

The input to this routine is a single parameter word having the 

form; 

AO 00000 BBBBB (octal) 

A = 4 Read and store one card image 
A = 0 Punch one stored card image 

BBBBB; The first storage address (drum or core) of a card image. 
If a card is to be read and stored, BBBBB is the first 
of 36 (decimal) storage locations which will be used by 
the image. If a stored image is to be punched, BBBBB is 
the first address at which the image is to be found. 

3. RECOVERY PROCEDURE 

There are only two ways in which a card fault can occur while this 
routine is operating: 

(a) Erasure of the manual jump command at position 00000 before 
entering the column heading routine. 

(b) Failure of the external equipment in picking a read or punch 
card. In either case, the routine may be restarted at the 
normal entrance after the cards have been repositioned. 

4. NUMBER OF TAGS USED = 2 (decimal) 

5. RUNNING THE 


The time required for one use of the routine is approximately the 
same as the time required for one complete read or punch cycle of the 
Bull reproducer. Therefore, it is possible to achieve virtual free run 
(120 cards per minute) if the programming between successive references 
to the routine is kept to a minimum. 
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C. RESTRICTIONS 


The storage positions at which a card image is to be stored should 
not coincide with any address within the column heading routine itself, 
since this would result in writing over part of the routine. Similarly, 
the programmer should not enter the read routine without specifying a 
storage address, since the routine will then store the image beginning at 
address 00000, erasing the manual jump at this position. 

D. ADDITIONAL PROGRAMMING AND OPERATING INFORMATION 


Since this routine does not attempt any conversion, but merely holds 
a card image, it is possible to punch anything whatsoever on the input 
cards. The output cards are limited by the Bull reproducer's inability 
to perform, dependably if more than 160 punches per card, or 60 punches in 
any one row, are required. Since there are no real limitations on the 
input-output format, it is possible to include any number of special codes 
to control the tabulating equipment when the output cards are printed. 
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9 

,EW1 
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,3 
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$ 

9 

,RA 
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9 
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,BODY+9 

,CARD FINISHED? 
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,3 
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, 
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3 
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3 
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3 
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,3 
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0R5 

6 January 1958 


OCTAL TYPEWRITER OUTPUT ROUTINE 
Compilable: Minimum 1103 A 
Operations Research Office-Sumner 


A. PURPOSE 

This routine types on the console flexowriter the octal contents of any 
storage address, with the following options: 

(a) Twelve digit octal type-out, no spacing, no zero suppression. 

(b) Octal type-out with zero suppression, no spacing. 

(c) Twelve digit octal type-out, with spacing between the ops., u, 
and v portions of the word, no zero suppression. 

E. USAGE 

1. LEADING LINES 

Sub 0R5 55 

Temps 0 0 

Inout 1 0 

2. INPUT 

The input to this routine consists of a single parameter word 
which has the following composition: 

AO BBBBB CCCCC (octal) 

A = 0 no zero suppression 

0=4 zero suppression (assumes that BBBBB = 0) 

BBBBB: Any bits at all within the u-portion of the parameter will 
cause the routine to space between the ops ., u, and v 
portion of the word. BBBBB = 0 assumes no spacing desired. 

CCCCC: The storage address at which the desired octal number is 
to be found. 

3. RECOVERY PROCEDURE 

No recovery procedure is necessary, since the only possible fault 
which could occur would be one due to computer malfunction or typewriter 
malfunction, either of which would be just cause for running maintenance 
tests. 

4. NUMBER OF TAGS USED = 3 (decimal) 

5. RUNNING TIME 

The speed of the routine is limited only by the operating speed 
of the console flexowriter. 
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C. RESTRICTIONS 


It is not possible to type out the contents of the Accumulator, but it 
is possible to type out the contents of the Q-register if so desired. 

D. ADDITIONAL PROGRAEKINS AND OPERATING INFORMATION 

This routine is not intended to be used as a flexowriter dump of 
consecutive storage addresses, and therefore, must be used one time for 
each machine word to be typed out. For this same reason, the address of 
the output word is not included in the type-out. 
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1. IDENTIFICATION ML T003, OCTAL TAPE WRITE 

ROGER SKINNER - 5 MARCH 1957 
LOCKHEED MISSILES DIVISION 

2. PURPOSE 

To write on a designated tape in octal format, n words from consecutive 
core or drum locations. 

3. METHOD 

This program writes the necessary number of blocks as determined by 
n in XS-3 code with 3 blanks following each word, or I48 words per block. 
No instructions are executed between external write commands during the 
writing of each block. 

Ij. USAGE 

a. Calling Sequence 

LOC. OP. u ADDR . v ADDR . 
r RJ t+2 t 

r+1 Normal Return 

b. Control and Results 

A parameter word with the following form must be placed at b*3. 
aa bbbbb ccccc 

a) Uniservo to be selected. 

b) Number of words to be written. 

c) Initial core or drum location. 

c. Space Required 

7h cells of instructions. 

128 cells of erasable labeled COMMON through COMMON+127. 

d. Error Codes 




The parameter word is left in the Q-Register on return through the 
error exit. The following error code is left in the Accumulator on 
return through the error exit. 


CODE 

T003*2 12 +l 


EXPLANATION 

Core overflow in attempting to fetch and write 


n words 






e. Tape Format 

The tape is written-at 128 lines density and 1.0 inch block and blockette 
spacing , 8 words per blockette. 

5. RESTRICTIONS 

If the initial core address and n are such that this routine attempts 
to fetch a word at a location one greater than the last legal core 
address, the routine will write the number of words up to and including 
the last core address and then exit through the error exit. 

6. CODING INFORMATION 

a. Constants 


LOCATION 

CONSTANT 

EXPLANATION 

VHASK 

000000077777 

V address mask. 

TMASK 

000000170000 

Tape indicator mask. 

BLANK 

010101010101 

XS-3 code for blank word. 

XS3TS 

377737773777 

XS-3 conversion test. 

ODDEV 

525252525252 

Odd-even indicator. 

LBKS 

010101000000 

Blanks in left half of word. 

RBKS 

000000010101 

Blanks in right half of word. 

C0DE1 

660303060001 

Error code for core overflow. 

U1 

000000100000 

1 in U-address. 

N1 

000000000001 

One. 

N3 

000000000003 

Three. 

N$ 

000000000005 

Five. 

N7 

000000000007 

Seven. 

Nii7 

000000000057 

Forty-seven. 

Nl*8 

000000000060 

Forty-eight. 


b. Working Storage 

128 cells labeled COMMON through COMMON+127. 

c. Timing 
Unknown. 
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1. IDENTIFICATION 


ML TOOl, OCTAL TAPE READ 
Roger Skinner - Revised - 6 March 1957 
Lockheed Missile Systems Division 


'VhA 



2. PURPOSE 

To read and store into consecutive core or drum locations, n words from 
a designated octal tape. 

3. METHOD 

a. This program reads the necessary number of blocks as determined by 

n from the designated uniservo. The blanks between words are removed 
during reading of each block. The conversion out of XS-3 and storing 
of the converted information is accomplished between blocks. 

b. Four attempts will be made to read each block successfully in event 

of parity check. Two attempts will be made at normal bias, one at high 
bias, and one at low bias# 

h, USAGE 

a. Calling Sequence 

mC . OP. u ADDR. v ADDH. 

r RJ t+2 t 

r+1 Normal Return 

b. Control and Results 

A parameter word with the following form must be placed at t+3. 
aa bbbbb ccccc 

a) Uniservo to- be selected. 

b) Number of octal words to be read and stored, 
s) Initial storage location 

c. Space Required 

86 cells of instructions. 

101 eells of erasable labeled COMMON through COMMON*100. 
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d. 


Error Codes 

The parameter word is left in the Q-Register on return through 
the error exit. The diagnostic routine is entered immediately, 
and no attempt is made to space the tape forward to correspond 
to the number of blocks indicated by n. The following error 
codes are left in the Accumulator on return through the error 
exit. 


CODE 

TOOl*2 12 *l 

T001*2 12 +2 


EXPLANATION 

Four unsuccessful attempts to read block. 
Core overflow while storing information. 


e. Tape Format 

The octal tape read by this routine consists of blocks containing 
1*8 octal words in XS-3 code, each followed by 3 blanks. 



5. 


RESTRICTIONS 


a. 


b. 



Information stored in such a way to overflow the last core address 
will cause immediate exit to the diagnostic routine. 

If other than 3 blanks separate the octal words on tape, then the 
leading binary bit of the first of these 3 characters must not be 
a binary one. 
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6. CODING INFORMATION 


Constants 



LOCATION 

CONSTANT 

EXPLANATION 

VMASK 

000000077777 

V address mask. 

TMASK 

000000170000 

Tape indicator mask. 

BIAS 

020000150000 

Normal bia3. 

THREES 

030303030303 

Used in XS-3 Conversion 

C0DE1 

6603030140001 

T001 x 2 12 +1 

C0DE2 

6603030U0002 

T001 x 2 12 +2 

U2 

000000200000 

2 in U address 

N1 

000000000001 

One 

N3 

000000000003 

Three 

NU 

00000000000U 

Four 

N5 

000000000005 

Five 

N7 

000000000007 

Seven 

N23 

000000000027 

Twenty-three 

NU8 

000000000060 

Forty-eight 


b. Working Storage 

101 cells labeled COMMON through COMMON+IOO. 

c. Timing 


Unknown 
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1. IDENTIFICATION ML T002, FLOATING DECIMAL TAPE READ 

Roger Skinner - Revised 6 March 1957 
Lockheed Missile Systems Division 

2. FURPOSE 

To read and store into consecutive core or drum locations in Floating 
binary form, n words from a designated floating decimal tape. 

3. METHOD 

a. This program reads the necessary number of blocks as determined 
by n from the designated uniservo. The blanks between words are 
removed during reading of each block. The conversion and storing 
of information is accomplished between blocks. An exponential 
method is used in the conversion from floating decimal to floating 
binary. 

b. The accuracy of the conversion is to within a binary one in the 
27th bit of the fraction in all cases. The conversion of all 
integers less than 10' is exact. 

c. Four attempts will be made to read each block successfully in event 
of parity check. Two attempts will be made at normal bias, one at 
high bias, and one at low bias. 

1*. USAGE 

a. Calling Sequence 

ICC . OP. u APDR. v ADDR. 
r RJ t*2 t 

r+1 Normal Return 

b. Control and Results 

A parameter word with the following fonn must be placed at t+3. 
aa bbbbb ccccc 
a) Uniservo to be selected. 
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The floating decimal tape read by this routine consists of blocks 
dotttaining 1*8 floating decimal numbers in XS-3 code, each followed 
by 3 blanks. A number is represented by 12 characters in the following 
order: Sign of number; 8 digit fraction; sign of power; 2 digit power. 


5. RESTRICTIONS 

a. Information stored in such a way to overflow the last core address 
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will cause immediate exit to the diagnostic routine, 
b. If other than 3 blanks separate the octal words on tape, then the 
leading binary bit of the first of these 3 characters must not be 
a binary one. 

6. CODING INFORMATION 


Constants 

LOCATION 

CONSTANT 

EXPLANATION 

OVDUM 

353100010000 

Overflow dummy word 

WMASK 

037777777777 

Conversion mask 

TMASK 

000000170000 

Tape indicator mask. 

MASK1 

000000000077 

XS-3 conversion mask 

VMASK 

000000077777 

Normal Bias 

NEMAX 

1*00000000000 

Conversion constant 

EXP1 

0351*1*0262675 

Conversion coefficient 

EXP2 

600000171150 

Conversion coefficient 

EXP 3 

270521*3514513 

Conversion coefficient 

LGB2T 

321*1*61*71*113l* 

Log to base 2 of 10, *33 

U2 

000000200000 

2 in U address 

ETAB 

200000000000 

2 to 0, *31* 

ETAB+1 

2131*531*071*1*0 

2 to .125, *31* 

ETAB+2 

230157701211* 

2 to .25, *31* 

ETAB*3 

21*5775532516 

2 to .375, *31* 

ETAB+l* 

265011711*61*0 

2 to .5, *31* 

ETAB+5 

305316250212 

2 to .625, *31* 

ETAB+6 

327211763126 

2 to .75, *31* 

ETAB+7 

3526011*331*77 

2 to .875, *31* 

C0DE1 

660303050001 

Tape error code 

BIAS 

020000150000 

Normal Bias 
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6. CODING INFORMATION (Continued) 

a. Constants (Continued) 


LOCATION 

CONSTANT 

EXPLANATION 

C0DE2 

660303050002 

Core overflow code 

C0DE3 

660303050003 

Power overflow code. 

NZ 

000000000000 

Zero 

N1 

000000000001 

One. 

N2 

000000000002 

Two 

s 

N3 

000000000003 

Three 

N4 

000000000004 

Four 

N5 

000000000005 

Five 

N8 

000000000010 

Eight 

N23 

000000000027 

Twenty-three. 

Nl*8 

000000000060 

Forty-eight 

N129 

000000000201 

One hundred twenty-nine 

N256 

000000000400 

One hundred fifty-six. 


b. Working Storage 

103 cells labeled COMMON through C0MM0N+102 

c. Timing 


Unknown 
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START 
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2 
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EXIT 

MJ 
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FILL 



Y 

FILL 

FILL 


FILL 



START 

TV 

Y 


PSTOR 


SET INITIAL ADD 


TP 

PZ 


OVIND 




LQ 

Y 


310 2 5 B 




OT 

VMASK 


COMMON 


NO WORDS 


LA 

Y 


32066B 


POSITION T 


TP 

TMASK 


0 




OS 

A 


READ 


SET READ 


OS 

A 


BKSP 


SET BK SPACE 

CYCLE 

RS 

COMMON 
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TP 

N48 


COMMON* 

1 

SET INDEX 


SJ 

TEST 


SB I AS 


TST FOR FULL BK 

TEST 

SA 
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ZERO 



ZERO 

ZJ 

PART 


BEXIT 



PART 

TP 

A 


COMMON+ 

1 

SET INDEX 

SB I AS 

EF 

0 


BIAS 


SET BIAS NORMAL 


TP 

N3 


COMMON* 

2 

SET BIAS INDEX 

RDBK 

EF 

0 


READ 


READ ONE BLOCK 


TV 

RDBK+ 

2 

STORE 


SET FIRST STORE 


TP 

N23 


COMMON+ 

3 

BLK INDEX TO 23 


I J 

COMMON+ 

1 

COPY 




RPB 

4 


COPY 



STORE 

TP 

COMMON+ 

99 

FILL 


STORE FOUR WORDS 

COPY 

RPV 
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POSIT 




ERB 

0 


COMMON* 

99 

READ FOUR WORDS 

POSIT 

LA 
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LT 
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RETRN 
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FILL 
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SF 
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A 


A 


POSITION 


LT 

28 
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5 
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RA 
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6 

N129 
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6 



SJ 
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OVTST 
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ST 
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OP 

U-ADDR 


V-ADDR 


EXPLANATION 


TN 

NEMAX 


A 


MAX TO A 


TP 

COMMON* 

5 

0 


MANT TO 0 


OJ 

CHSGN 


CHSGN+ 

1 

IF NEG 

CHSGN 

TN 

A 


A 


CHANGE SIGN 


TP 

N5 


0 


FIVE TO 0 


MJ 

0 


STST 


AND EXIT 

PST 3 

LTR 

27 


0 


POSITION CHAR 


TP 

COMMON+ 

5 

A 


MANT TO A 

STST 

SJ 

ADJC 


PSTOR 


IF NEG 

AD JC 

TN 

0 


0 


ADJUST CHAR 

PSTOR 

AT 

0 


FILL 


PACK AND STORE 


RA 

PSTOR 


Ml 


BUMP STORE 


EJ 

OVDUM 


OVER 




RA 

WORD 


U2 


BUMP WORD FETCH 


I J 

COMMON* 

1 

WORD- 

1 

TEST FOR END 


MJ 

0 


CYCLE 


RET FOR NEXT BK 

CLEAR 

TP 

NZ 


COMMON* 

4 

CLEAR SUM 

POLY 

LQ 

0 


6 




SP 

COMMON* 

4 

2 


SUM 


SA 

COMMON+ 

4 

1 


TIMES TEN 


OA 

MASK 1 


A 


DIGIT 


ST 

N 3 


COMMON* 

4 

-XS 3 


I J 

COMMON* 

3 

POLY 




RS 

COMMON* 

2 

N2 


TEST 


ZJ 

STOR 


STOR- 

1 

SIGN 


TN 

COMMON* 

4 

COMMON+ 

4 


STOR 

TP 

COMMON+ 

4 

FILL 


STORE 

RET 

MJ 

0 


FILL 



OVER 

SP 

CODE2 


0 




MJ 

0 


RETRN 



BEXIT 

SP 

OVIND 


0 




ZJ 

SIND 


EXIT 



SIND 

SP 

CODE3 


0 




MJ 

0 


RETRN 



BKSP 

02 

614B 


1 



READ 

02 

602 B 


0 



MPDUM 

MP 

0 


ETAB 


MULP DUMMY 

SFACT 

B 



0 


SCALE FACTOR 

OVIND 

B 



0 


OVERFLOW IND 

NZ 

B 



0 



N 1 

B 



1 



N2 

B 



2 



N 3 

B 



3 



N4 

B 



4 



N5 

B 



5 



N 8 

B 



10 



N? 3 

B 



27 



N48 

B 



60 



N129 

B 
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N256 

B 
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OVDUM 
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353100010000 


OVERFLOW IND 

WMASK 

B 
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LOC OP U-ADDR V-ADDR EXPLANATION 


TMASK 

B 

170000 

TAPE 

IND MASK 

MASK 1 

B 

77 

XS-3 

MASK 

VMASK 

B 

77777 

V ADDR MASK 

BIAS 

B 

20000150000 

NORMAL BIAS 

NEMAX 

B 

400000000000 

CONVERSION CONST, 

EXP 1 

B 

35440262675 

CONV 

COEFFICIENT 

EXP2 

B 

600000171150 

CONV 

COEFFICIENT 

EXP3 

B 

270524354513 

LOG 

BS 2 OF E 

LGB2T 

B 

324464741134 

LOG 

BS 2 OF 10 

U2 

B 

200000 

2 IN 

U ADDR 

CODE 1 

B 

660303050001 

TAPE 

ERROR CODE 

C0DE2 

B 

660303050002 

CORE 

OVFL CODE 

C0DE3 

B 

660303050003 

POWER 0VFL CODE 

ETAB 

B 

200000000000 

2 TO 

0 


B 

213453407440 

2 TO 

.125 


B 

230157701214 

2 TO 

.25 


B 

245775532516 

2 TO 

.375 


B 

265011714640 

2 TO 

. 5 


B 

305316250212 

2 TO 

.625 


B 

327211763126 

2 TO 

.75 


B 

352601433477 

2 TO 

.875 


END 


I 











B. Control and Results 

A parameter word in octal notation following the form 00 bbbbb cccccj must 

be placed in location t+3 wheret 

bbbbb ) Number of cards to be read 

ccccc ) Relative address. This may be zero. 

C. Space Required 

280 cells of instructions 
66 cells of constants 
U2 temporary cells 

D. Card Format! 

1. The variable field card input uses only the first 72 columns. 

A number that would require punching beyond the first 72 columns may be 
continued in column 1 of the succeeding card if there are 72 non blank 
columns in the first card. The reading of a card is terminated by any 
of the following! 

a. A blank column found anywhere in the first 72 columns. 

b. When 72 non blank columns have been read. 

c« By the letter "C n found anywhere in the first 72 columns. 


« 
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2. Loading of the Input is terminated in one of two ways, whichever occurs 
firstt 

a. When the letter "C n appears on a card, or, 

b. When "N" cards, as specified in the "u" address of the 
parameter word, have been read. 

3. Decimal Storage Addresses in the form of, LXXXXX, may appear anywhere on 

any card. The number immediately following such an address will be stored in 
the cell whose address is formed by adding to the LXXXXX address, the 
relative address in the v portion of the parameter word. The following 
numbers will be stored in consecutive cells until another address appears. 

li. A comma separates all fields of the variable field card input. Complete 
numbers may be duplicated into consecutive cells by successive coronas. 

5. Floating point numbers are written in the form txXXXXXXXXtFXX. Plus signs 
need not be specified. No decimal point may be written in a floating point 
number, it is assumed that the decimal point precedes the left most written 
digit. The fractional part of the floating point number may be less than 
but cannot exceed nine decimal digits. 

6. Stated point numbers are specified by a sign followed by not more than 
eleven decimal digits. Plus signs need not be written. A decimal point 
may appear anywhere in a stated point number. 

7. Scale factors are associated with each stated point number. Hie decimal 
scaling is in the form D*XX and the binary scaling is in the form BXX. The 
binary scaling is actually the location of the binary point obtained by 
counting from the right, starting with the bit zero of the word as it 
appears in the machine. Hie plus sign need not be written in the decimal 
scaling factor, a minus sign is not allowed in the binary scaling factor. 

The decimal scaling factor must not exceed til. A minus zero will be 
stored in place of the number if the scaling factor is too large. 

After once being specified the decimal and/or binary scaling of a number 
is duplicated in following stated point numbers until new scale factors 
are encountered. Zero scaling factors are specified by writing only the 
associated alphabetical character. 

E. Error Codes 

1. The parameter word is left in the Q-Register and the following error codes 
are left in the accumulator on return through the error exit. 

Explanation 

Core overflow while storing information 
Power overflow during floating conversion 


Code 

C001*2 12 +l 

C001*2 12 +2 
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5. RESTRICTIONS 

A. The parameter word is expressed in octal notation. 

B. Decimal scaling factors cannot exceed eleven. 

C. Negative binary scaling is not permissible. 

D. Scaling factors are duplicated. 

6. CODING INFORMATION 
A. Constants. 


Location 

Constant 

Explanation 

L(0) 

000000000000 

Zero 

L(l) 

000000000001 

One 

CN2 

000000000020 

Twenty 

CN3 

000000100000 

Mod u address 

CNl* 

0000000000 2k 

Comma 

CN5 

OOOOOOOOOOU5 

B 

CN6 

00000000001*7 

D 

CN7 

000000000051 

F 

CN8 

000000000026 

L 

CN9 

00000000001*6 

C 

CN10 

000000000003 

Zero XS-3 

CN11 

oooooooooool* 

One XS-3 

CN12 

000000000005 

Two XS-3 

CN13 

000000000006 

Three XS-3 

CNll* 

000000000007 

Four XS-3 

CN15 

000000000010 

Five XS-3 

CN16 

000000000011 

Six XS-3 

CN17 

000000000012 

Seven XS-3 

CN18 

000000000013 

Eight XS-3 

CN19 

000000000011* 

Nine XS-3 

CN20 

000000000061 

Point 
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CN21 

525252525252 

Alternator 

CN22 

00 CN1900000 

CN19 in u address 

CN23 

00 CN2l*00000 

CN2l* in u address 

CN2l* 

OOIDIOOIDIOO 

Left Row Dummy 

CN25 

00 CN2600000 

CN26 in u address 

CN26 

OOICIOOICIOO 

Right Row Dummy 

CN27 

000000000077 

Mask 

CN28 

000000000020 

Minus Sign 

CN29 

1*00000000000 

Indicator 

CN30 

000000000015 

A number test 

CN31 

00 CN3200000 

CN32 in u address 

CN32 

000000000001 

10° 

CN33 

000000000012 

10 1 

CN3l* 

OOOOOOOOOlU* 

CM 

9 

CN35 

000000001750 

10 3 

CN36 

0000000231*20 

10 ^ 

CN37 

00000030321*0 

10 ^ 

CN38 

00000361*1100 

10 6 

CN39 

00001*6113200 

10 7 

CNiiO 

0005753601*00 

CO 

3 

cnu 

000731 * 651*500 

10 9 

CNi*2 

1121*02762000 

10 11 

CNl*3 

321*1*61*71*1131* 

Log 10 Base 2 

CN 1*1* 

200000000000 

1 scaled 3l* 

cn!*5 

037777777777 

Mask 

CNl*6 

MPQOOOOOCNl*? 

Dummy for T.L.U. 

CNl*7 

200000000000 

2 to 0/8 S-31* 

CNl*8 

2131*531*071*1*0 

2 to 1/8 S-3l* 

CNit9 

230157701211 * 

2 to 2/8 S-31* 



cn5o 

245775532516 

2 to 3/8 S-34 

CNSl 

265011711640 

2 to 4/8 S-34 

CN52 

305316250212 

2 to 5/8 S-34 

CN53 

327211763126 

2 to 6/8 S-34 

cn54 

352601433477 

2 to 7/8 S-34 

cn55 

035440262675 

A2 Scaled 36 

CN56 

600000171150 

A1 Scaled 35 

CN57 

270524354513 

Log £ Base 2 S-34 

CN58 

000000000201 

Floating Pt power 

CN59 

000000000400 

Test for power overflow 

CN6o 

400000000005 

EF-Read cards 

CN6l 

000000000040 

Plus sign 

CN62 

777777777777 

Power overflow number 

CN63 

310303040001 

Core overflow code 

CN64 

310303040002 

Power overflow code 


Working Storage 
30 Cello 

Timing 


Unknown 
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9 

QJ 

9 

RSAL1t R5AL2 * $ 
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LO 


TMi2, | ,MODIFY X TO Y CHARS 




t 

IJ 

9 

IQX1,READ2tTEST INDEX 2S 




9 

TU 

, 

CN231SEUAD t S 




SEUXR1, 

TP 

9 

L ( 1 )«10X1« SET RT INOEX IS 




SEDXR2 t 

TP 

9 

CN12iI0X2»SFT RT INDEX 2S 




SEUAO , 

SP 

9 

FILL* 1 5* SET UP (J AUDRESSS 



o 

9 

TU 

9 

A♦NTQL6♦S 




SEOXR5, 

TP 

9 

CN12 »10X31SET RT INDEX 3» 




NTQL6 , 

LO 

9 

FILL»fc»NUMBER TO Q LEFT 6$ 




» 

3T 

9 

CN271 A f MASK 6 LSD !0 AS 




9 

TP 

9 

TM27»TM28»PREVIOUS XS3 DIGITS 




9 

TP 

9 

A * TM271CURRENT XS3 DIGITS 




9 

ZJ 

9 

NOBLK * BLANK,ACC EQ ZEROS 




blank , 

MJ 

9 

♦ TSTOX4»BLANK NEXT CARDS 




NOBLK , 

EJ 

9 

CN61•PLUS * A PLUS S*GN$ 




9 

EJ 

9 

CN2B,MlNUS * A MINUS SIGNS 




9 

TJ 

9 

CN30 » ANO t A NUMBERS 





EJ 

9 

CN8 1 ANL » ANLS 





EJ 

9 

CN7 • ANF *ANFS 




9 

EJ 

9 

CN6»ADEEtADS 




9 

EJ 

9 

CN5,ABEE,A3S 




9 

EJ 

9 

CN20,APT,A POINTS 




9 

EJ 

9 

CN4 » ACOM , A COMMAS 




9 

EJ 

9 

CN9»EXlT,AC-EXIT$ 




9 

RJ 

9 

»£RRORtERKORS 




PLUS . 

TP 

9 

L(0)tSlGIND.CLEAR SIGN INDS 




• 

MJ 

9 

t RTDX3* S 




MINUS , 

TP 

9 

CN2p,SIGIND#SETSIGN I no MINUSS 





MJ 

9 

* RTDX3* S 




ANO . 

ST 

9 

CNIOtOtNUMBER MINUS 3S 



7 

f 

SP 

9 

TM7 t 2 t STO ACCS 



• 


S A 

9 

TM7*1 , MULT BY 1 OS 



9 

AT 

9 

Q * TM7 ♦ ADD IN DIGITS 





RA 

9 

TM6tTM8«M PLUS T TO Ms 



FORM a 


MJ 

9 

, RTDX3* S 



©e r 

ANL ♦ 

TP 

9 

CN29 » LI NO♦SET L INDICATORS 



CLEARS, 

TP 

9 

L<0),TM7.CLEAR SS 




9 

MJ 

9 

, RTDX3 * S 

i 

• 

ANF . 

TP 

9 

CN2P t FIND » SET F INDICATORS 
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* TP » TM7*NFLOT«S TO N FLOATS 

CLEAT , TP . L(0)»THR.CLEAR Ts 

* TP ♦ L(0)iNSIGN» S 

t TP , SIGINO*Q* SIGN IND TO Q$ 

. QJ ♦ sEN5IG»CLEAPS«TF.ST SIGN INJS 

SENSIG* TP . CN2P * NS I GN » SET NO SIGN INO$ 

CLESlGt TP » L<0)* SiGIND»CLEAR bIGN INDS 

* MJ , * CLEARS * $ 

AOEE * TP » L (0) »DSCF * CLEAR 0 SCALE FACTORS 

* TP ♦ CN291DIND» SET D INDICATORS 

STONS » TP * TM7*NSTAT *S TO N S I ATEDS 

* m j * * cleatis 

ABEE . TP . CN29tBlND»SET B INDICATORS 

. TP . L<0).BSCFiCLEAR a SCALE FACTOR* 

* TP » DIND»G»0 INDICATOR TO QS 

* QJ » STOD*STONS** 

STOD * TP » TM7*DSCF»S TO D SCALE FACTORS 

* TP * L(0)tDINDfCLEAR D INDICATORS 

t TP . SIGlNDf O»SIGN IND 10 04 

. QJ , NEGEDtCLEARS.TEST SIGN IND* 

NEGED » TN * DSCF f DSCF»NEG D SCALE FACTORS 

* MJ , »CLESIGt$ 

APT t TP . L ( 0) *TMftiSET M EQ 10 ZEROS 

. TP . CN291PiND«SET PT INDICATORS 

RTDX3 . IJ , IDX3»NTQL6iTEST RT INDEX 3* 

* RA t NTQL6»CN3*M0DIFY K* 

. IJ . IDX? * SEDXR3 * TEST INDEX RT2* 

* TU * CN25*SEUAD* CHANGE SEUAQS 

* IJ « IDXIiS£0XR2*TEST INDEX RT1* 

. MJ , *TSTDX4»RETURN TO MAIN ROUTINES 

ACOM ♦ Ej * TM2B»STORE*COMMA BY COMMAS 

* TP * LINDtQ.L IND TO QS 

» QJ * LSETtFINDQt TEST L ANOS 

LSET . TP . TM7 * A * S TO ACCS 

* AT ♦ TM5* A t ADD IN REL LOC$ 

* TV . A»STORE*M00IFY STOKE INSTRUCTIONS 

CLEAM * TP , L(0)iTM6* CLEAR M$ 

t TP * L(0)*TM7»CLEAR SS 

* TP « L < 0)»LIND» CLEAR L AMDS 

* TP * L(B U * TM0•SET EO TO 1$ 

» MJ , ,RT0X3t$ 

FINDQ . TP , FIND?0»FIND TO 0$ 

* QJ » FSET.DEEQ.TEST F INDICATORS 

FSET ♦ TP , TM7iFL0AT*S TO F$ 

. TP * L < 0)» FIND» Cl EAR F INDICATORS 

. TP , SIGINDtOtSIGN INDICATOR TO QS 

* QJ » NEGF*FLOP*TEST SIGN INDICATORS 

NEGF » TN * FLOAT*FLOAT*NEGATlVE F$ 

* TP » l<o>.sigind.clear signinos 

* MJ * *FLOP*TO FLOATING RT CONV.S 

DEEQ . TP * DINDtOtOINDICATOR TO QS 

* QJ * DSET.REEQ*TEST 0 INDICATORS 

DSET * TP ♦ L(0)*DIND*CLEAR D INDICATORS 

* TP , SlGINDtU*SIGN INDICATORS 

* QJ . NEGD* ST0D2 * TEST DSF SIGNS 

NEGD . TM * TM7*DSCF»MINUS PSF* 

TP . L(0)*SI6 IND*CLEAR bIGN INDICATOPS 
MJ . * STAP * TO SP CONVERSIONS 

TP ♦ TM7 * DSCF * S TO DSFS 


ST0D2 
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MLC 001 




1 


FORM if 
MS D 8520 

<B* r 


9 

MJ 

. t STAP t TO SP CONVERSIONS 

BEEQ t 

TP 

, BlNDfQtB INDICATOR* 

• 

aj 

. BSET.ST0NS2.TEST B INDICATORS 

BstT f 

TP 

. TM7tB<;CP*s TO BsFS 

9 

TP 

» L(0)fBlNDtCLEAR 9 INDICATORS 

9 

MJ 

. * STAP * TO SP CONVERSIONS 

ST0NS2 9 

TP 

• TM7 * NST AT * S TO M STATEDS 

9 

TP 

t SIGIND.Q. SIGN INDICATORS 

9 

0 J 

* NEGN * STAP t TEST N SIGNS 

NEGN 9 

TP 

t CN29.NSIGN.SET NEG NUMBER IND$ 

9 

TP 

t L(0)tSlGlND»CLEAR SIGN INDICATORS 

STAP 9 

Tm 

♦ DSCF»A ♦ U TO AS 

9 

ss 

, CN19»,D MINUS 1?S 

9 

SJ 

1 DOK * TOOBIG » TEST SI^E OF DSCFS 

DOK 9 

TP 

» DSCF * A * $ 

9 

MJ 

» 1 PTOQ • S 

T00BIG9 

TP 

» CN62.RESULT.DSF TOO LARGES 

9 

MJ 

* » STORE * * 

PTOQ 9 

TP 

♦ PIND.Q.PT INDICATOR TO OS 

9 

QJ 

. PSETtPNSETt S 

PNSET 9 

TP 

. DSCF « TEE , S 

9 

MJ 

1 » SPCON.CONVERSIONS 

PSET 9 

TP 

. L ( 0)* PIND t CLEAR PT INDICATORS 

9 

ST 

, TM6» TEE *D MINUS MS 

9 

MJ 

. t SPCON*CONVERSIONS 

STORE • 

TP 

♦ RESULT,FILL.STORE NyMBER* 

9 

RA 

. STORE.L(B1)tBUMB LOCATIONS 

9 

EJ 

. CN65.COFLO.TEST CO*E OVERFLOWS 

9 

MJ 

. .CLEAM.RETURNS 

COFlO 9 

SP 

. CN63.0.CORE OVERFLOW TO AS 

RETURN, 

TP 

. Y.Q.PARAMETER TO 0* 

9 

MJ 

. .ERROR.TO ERROR EXITS 

SPCON . 

TP 

. tee.a.d TO AS 

9 

ZJ 

» DENZO.DEZO.D EQ ZEROS 

DENZO , 

SJ 

. DELZO.DEGRO.D LESS THAN ZERO* 

delzo , 

SN 

. TEE.15.ABSOLUTE D$ 

9 

SA 

♦ CN31..AUD TABLE ORIGS 

9 

TU 

. A.DIVIG.SET UP DIVIDES 

9 

TV 

. BSCF.SHIFT.SET UP SHIFTS 

9 

SP 

. NST AT .♦ N TO ACCS 

DlVlG , 

DV 

. FILL.REG,DIVIDE BY 10D$ 

9 

SP 

, A.35.SHIFT REMAINDERS 

9 

TU 

. DIVIG.DIVREM,SETUP REMAIN DIVIDFS 

Dl VRE^ 9 

DV 

, FILL.TM29,REMAINDER BY 10$ 

9 

SP 

. REG,35,INTEGER TO A$ 

9 

SA 

, Q»37,FRACTION TO A* 

SHIFT 9 

LA 

. A,FILL,RESULT IN A* 

9 

MJ 

, .RESIGN.S 

DEZO 9 

TV 

. BSCF.SHIFT2,SET UP SHIFTS 

SHIFT2 9 

SP 

, NSTAT.FILL.SHIFT n* 

9 

MJ 

, .RESIGN.S 

DEGRO , 

TV 

, BSCF.SHIFT3.S 

9 

SP 

. TEE.15,0 TO US 

9 

SA 

» CN31» »ADD TABLE OR^GS 

9 

TU 

, A »MPYN♦SET UP MPYS 

MPYN 9 

MP 

♦ FILL,NSTAT,MRY 1OD NSTS 

SHIFTS 

LA 

, A,FILL,SHIFT PRODUCTS 

RESIGN, 

TP 

» NSIGN.Q.N SIGN TO 0$ 

9 

QJ 

, NNEG,NPOS,TEST INDICATORS 





N> tt 




/a 


o 
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NNEG t TN 
t MJ 
NPOS t TP 

t M v 

FLOP t TP 

t At RESULTtNEGATIVE NS 
t t STORE t TO STORES 
t AtRESULTtPOSITIVE NS 
t t STORE t TO STORES 
t FLOAT tAtF TO A$ 




EXNEG 

EXPOS 


ST 

MP 

LT 

LG 

SJ 

RS 

SP 

AT 

SP 

LT 

AT 

QT 

NIP 


TM6tQtF MINUS M TO OS 
QtCN43tE LOG 10* 

3 * LEROW * SAVE INTEGtRS 
A * 33* FRACTION TO AS 

exnegiExpos.expone r negs 
LLROW.L tBI) iINTEGER PLUS 
CN29 t♦1 SCALED 35s 
Q»Q»GET POS comps 
Q*4»$ 

» A i $ 

CN461 FPMY t TLU SETUPS 
CN45tQtMASK ALL BUT 3S 
Q t CN55 * S 


1 S 


FPMY 


ZETOA 

OFLO 

SLEROW 

REGITA 


CN2 

CN3 

CN4 

CN5 

CN6 

CN7 

CN8 

CN9 

CN10 

CN1 1 

CN12 

CN 1 3 

CN 1 4 

CN 1 5 

CN 1 6 


LT 

AT 

MP 

LT 

AT 

SP 

DV 

AT 

NIP 

LT 

MP 

SF 

TP 

RA 

AT 

SJ 

TP 

MJ 

TJ 

SP 

MJ 

LO 

TP 

LT 

AT 

MJ 

B 

B 

B 

B 

B 

B 

9 

B 

B 

B 

B 

B 

3 

B 

B 


i A t $ 

CN56»RTROWiS 
QtRTROWtS 
t A« S 

CN57tRTK0W.$ 

G t 331 S 
RTROVVt AtS 
CN44 t Q t * 

QtFILLt* 

2» AtS 
A t NFLOT t S 
A t TM121 S 
AtREGtS 
LEROW t CN58 t $ 

TM12 t LEROW t $ 

ZETOAtOFLOtS 
L(0)tAtZERO TO ACC * 
tREGITA t S 

CN39tSLER0AtOVERFLOW* 
CN64,0tPOWER OFLO To AS 
tRETURNtTO ERROR RETURNS 
LER0Wt27t$ 

REG t A t S 

28t AtS 

QtAtS 

tRESIGN.S 

20t tTWENTYS 

0000001tOOOOOt $ 

24 t t COMMAS 
451 tBS 
471 t D$ 

51t tFS 
26t tL$ 

46» t CS 
3* tOS 

4 t t ONE XS3S 
5 1 t TWO XS3S 
6 * t THREE XS3S 
71 .FOUR XS3S 
lOttFIVE XS3S 
1 1 t tSIX XS3S 
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CN17 

f 

B 

• 12..SEVEN XS3* 

CN | 8 

t 

B 

. 1 3..EIGHT XS3* 

CM 9 

« 

B 

. 1 4 ..NINE XS 3 * 

Cis ;20 

t 

B 

* 6 I..PT* 

CN21 

« 

B 

« 5252525*25252.ALTERNATOR* 

CN22 

t 


. CN19» * * 

CN23 

9 


» CN24..* 

CN24 

9 


. IUIOO. 10100 .$ 

CN25 

9 


. CN26..S 

CN26 

9 


♦ ICI 00 *ICIOO.S 

CN27 

9 

B 

. 77..MASK* 

CN2b 

9 

B 

. 20 ..negative sign* 

CN29 

9 

a 

. 4000000*00000*indicator* 

CN30 

9 

B 

. 15..* 

CN3I 

9 


. CN32 * * * 

CN32 

t 

B 

. 1 ..TEN TO ZERO* 

CN33 

» 

B 

» 12..TEN TO ONE* 

CN34 

f 

B 

. 144..TEN TO TWO* 

CN35 

9 

B 

. 1750..TEN TO THREE* 

CN36 

9 

B 

♦ 23420..TEN TO FOUR* 

CN37 

9 

3 

» 303240. * TEN TO FIVE* 

CN38 

• 

B 

♦ 3641 100 * * TEN TO SI** 

CN39 

9 

B 

» 4611320*0*TEN TO SEVEN* 

CN40 

9 

B 

♦ 5753604*00* TEN TO EIGHT* 

CN41 

9 

B 

• 73465.45000*TEN TO NINE* 

CN42 

9 

3 

. 1124027*62000*TEN TO ELEVEN* 

CN43 

9 

B 

. 3244647.41134.LOG 10 TO BASE 2* 

CN44 

9 

B 

. 2000000*00000*1 SCALED 34* 

CN45 

9 

3 

. 0377777.77777»MASK* 

CN46 

9 

RP 

» Q.CN47.0UMMY FQR TLUS 

CN47 

9 

B 

* 2000000*00000*2 TO 0-8 S34* 

CN48 

9 

B 

* 2134534.07440.2 TO 1-8 S34* 

CN49 

9 

B 

♦ 2301577.01214*2 TO 2-8 S34$ 

CN50 

9 

B 

* 2457755*32516*2 TO 3-8 S34* 

CN5 ! 

9 

B 

♦ 2650117*14640*2 TO 4-8 S34* 

CN52 

9 

B 

. 3053162*50212*2 TO 5-8 S34* 

CN53 

9 

B 

* 3272117*63126*2 TO 6-8 S34S 

CN54 

9 

B 

« 3526014*33477*2 TO 7-8 S34* 

CN55 

9 

B 

* 0354402*62675*A2 SCALED 36* 

CN56 

9 

B 

* 6000001*71150*A 1 SCALED 35* 

CN57 

9 

B 

* 2705243*54513* LOG t BASE 2 S34* 

CN58 

9 

B 

* 201 ..12.9* 

CN59 

9 

B 

. 400.** 

CN60 

9 

B 

* 4000000*00005*EF READ CAROS* 

CN61 

9 

B 

. 40..POSITIVE SIGN* 

CN62 

9 

B 

» 7777777*77777** 

CN63 

9 

B 

» 31030*3040001*CORE OFLO CODE* 

CN64 

9 

B 

» 31030.3040002.P0WE* OFLO CODE* 

CN65 

9 

TP 

. RESULT*100001B.CORE OFLO IND* 

IDI00 

9 

RESERV* 6*6** 

ICI00 

9 

RESERV. 6*6*$ 

DIAG 

9 

RESER V * 3 » 3 ♦ $ 


9 

END 

. »* $ 


(tl F 







IDENTIFICATION 


/ ouLwh 



ML DOOl OCTAL DUMP 
T. H. DEWEY 
16 APRIL 1957 

LOCKHEED MISSILE SYSTEMS DIVISION 


PURPOSE. 

To dump core or drum on any designated uniservo. 


METHOD. 

The program prepares an XS-3 tape, suitable for listing on the off-line high 
speed printer, which contains the contents of memory from A to B, where A and B 
are specified in a parameter word. The program preserves core by making use 
of a core image on drum. A 261* word buffer region is constructed, pulling out 
6 words per blockette and replenishing the buffer when necessary. 

A sentinel block is appended to the end of each dump consisting of a printer 
stop symbol repeated 720 times. Replace the constant at c+17 to substitute any 
other sentinel. 


USAGE. 

1. The dump was programmed with the intention of being initiated by a drum 
start. Modifications have been made in order to initiate it by a normal 
USE entry, to wit* 

r RJ t+2 t to dump 

r+1 normal return 


2. There are five parameter words as follows: 


(t*3) 

- (Q) 

(t+U) 

* (A l ) 

(t+5) 

• (Ar) 

(t+6) 

■ 00 aaaaa 


where aaaaa 


and bbbbb 


bbbbb 

is starting address 

is last address to be dumped; 



•» 
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D. USAGE, (continued) 

If (t+6) ■ 0 then entire core is dumped. 

(t+7) - 00 00000 0000T 

where T designates uniservo for dumping^ 

If (t+7) “ 0 then uniservo 5 is used. 


3. Space required 

234 words of instructions and constants on drum 
158 words of instructions in core 
65 words of erasable and constants in core 
636 words of image on drum 

4. Tape format 

Each block of tape contains the contents of 36 consecutive locations. In 
addition a heading block precedes each dump containing the contents of Q, 
A^, Ajj, CORE F]_, Fg, Fy and the status of the manual jump switches. 

E. RESTRICTIONS. 

1. When specifying dump limits A and B must be either both core or both drum 
addresses. No continuous dumping from core to drum or drum to core is 
allowed. 

2. The MJ1 switch is used to determine whether or not more than one dump is 
to be put on a given uniservo. If the MJ1 switch is on, then after the 
program has dumped from A to B the taoe is left positioned to receive 
another dump. If the MJ1 switch is off the tape is rewound. In either 
case core is restored, if necessary, and control is returned to the 
programmer. 

3. That part of drum designated by the programmer to be the drum core image 
cannot be dumped, since the lower part of core is immediately placed in 
the image when entering the dump program. This restriction can be avoided 
by a suitable modification. 
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F. CODING INFORMATION. 

1. Numerical constants 

22 cells labeled c thru c ♦ 21 

2. Alphabetic heading constants 

31 cells labeled: 

M thru M + 5 
H thru H ♦ 1U 
H2 thru H2 + 9 

3* Buffer storage 

26h cells labeled z thru z + 263 

ii. Tape write image 

120 cells labeled IM thru IM * 119 

5. Working storage 

h9 cells labeled: 


IND 

thru IND 

*7 

W 

thru W 

*6 

V 

thru V 

+13 

L 

thru L 

+19 


6. Timing 


Unknown 
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DC I 

♦ EQUALS* 46600)B *♦ 

DEFINE IMAGE 



DIAG 

f EQUALS* 50000) 9 * * 

DEFINE error routine 

• 



* SETlOCi 45600)8*45600)8* 





T 

MJ 

f 0*START* 

entry 





RJ 

» DIAG+2.0IAG* 






MJ 

* 0 * FILL * 

exit 





00 

. FILL*FILL* 

0 





00 

* FILL.FILL* 

AL 





00 

* FlLLtFlLL* 

AR 





00 

* FILL*FILL* 

DUMP LIMITS 




00 

* FILL.FILL* 

UNI SERVO 




START 

TP 

* 0 * DC I * 

RRESERVE Fi 





RP3 

« 636♦STAKT+2 * 

PRESERVE CORE 




TP 

* 1»OCI + 1 * 






RP3 

* 220♦DUMP * 

PROGRAM TO CORE 




TP 

. RETURN+2*1» 





RETURN 

RPB 

* 636 * T + 2 * 

restore core 




TP 

« DC 1 + 1.)♦ 






* SETLOCt 1*RETURN+2. 



’ 


DUMP 

RPB 

. 3*HD3* 

PICK FI F2 F3 



HD2 

TP 

* DC I « ft + 3 * 





HD3 

RP3 

* 3»HD5 * 

PICK Q AL A« 





TP 

. T+3 * ft * 





HD5 

RJ 

* KF * KA « 

CONVERT 





RJ 

* BL•BL * 

blank out image 

* 



RP3 

* 1S.HD9* 






TP 

» H * I M + 3 * 

HEDING TO IMAGE 

c 


HD9 

RP3 

* 1 0 »HD 1 1 • 

JUST 10 MORE BLANKS 

l 



TP 

* H2.IM+90* 





HD 1 1 

TP 

* C+21.IM* 

HOME PAPER 





TP 

* V+2 * IM+22 * 

AL L 





TP 

» V + 3 * 1^+23* 

AL R 





SP 

* V+4.66* 



\ 1 



AT 

* C+15 *IM+24 * 

AR TOP 





SP 

* V+4♦36 * 






SA 

* V+5* 30* 






LTL 

* * IM + 25* 

AR MIDDLE 





SP 

* V+5«* 






AT 

• C+14 * IM+26 * 

AR BOT 




HD 2 1 

TP 

♦ V.IM+28* 

QL 





TP 

. V-M.IM+29* 

QR 





TP 

. V + 6.IM+110* 

F 1 L 





TP 

* V + 7 *IM+11 1 * 

FI R 





TP 

* V + B * IM +114* 

F2 L 





TP 

♦ V+9 * IM+115* 

F2 R 





TP 

* V-MO.IM+1 IB* 

F 3 L 





TP 

* V+11»IM+119* 

F 3 R 





RPB 

. 3 » HD31 * 






TP 

. M.IM+35* 

SWITCHES ON 

f 


HD3I 

MJ1 

. 0 * HD33 * 






TP 

* M+3 * IM+35 * 

SWITCH 1 

OFF 



HD33 

MJ2 

♦ 0 »HD35 * 






TP 

* M + 4 * IM+ 36 * 

SWITCH 2 

OFF 

• 


HD35 

MJ3 

♦ 0»HD37* 



FORM s 



TP 

* M + 5 * IM+37 * 

SWITCH 3 

OFF 

MS D 8 5 20 


HD37 

TP 

* T + 6 * Q * 

PICK UP DUMP 

LIMITS 

f 



TP 

. T+7.A. 

and uni servo 





LA 

. A*12. 

TLST TAPE NUMBER 




ZJ 

. HD42.HD41* 
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HD4t 

t 

SP 

» C+4»12• 

OUTPUT ON 5 

HD42 

9 

AT 

t yA + 5»YA + 5 * 

SET REwlNO 


t 

AT 

t yA+4iYA + 4 t 

SET WRITE 


9 

Rj 

t Ya+3«Ya* 
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1. IDENTIFICATION RRF3, SIN X STATED POINT 

A. E. Roberts, M. D. Bernick - REVISED 1 June 195* 
Remington Rand Univac 

2. PURPOSE 


Given X, computes Y(X) = sin X 

3. METHOD 

a. Accuracy: |Y(X) - sin X| < 2”^ 

36 

b. Range of Argument: |X| < tt ’ 2^ radians 

c. Scaling: X * 2 32 , Y(X) * 2 32 

d. Derivation: obtained from the relation sin(jr/2)a = 1-2 sin 2 £ (1 -1) 

Polynomial approximation for ^ " as 8 function of (-U) 2 for 

-1 < N < 1 is derived from the Chebyshev expansion: 

Bin n/4 N = 2 S (-l) k (tt/4) . (N). 

See Central Exchange Routine RR-24 

The argument, X, is entered and multiplied by 2/v so that(2/^C = 3. Thai 
routine then computes sin(*/2)fc= sin X. 

4. USAGE 

a. Ogling Sequence 


LOC 

OP 

U ADDR 

V ADDR 

r 

RJ 

t + 2 

t 

r+1 

Normal 

Return 



b. Control and Results 

The most significant 36 bits of the argument, X, must be initially stored in 
cell t + 4, and the least significant 36 bits of X stored in t + 5. The 
function Y(X) will be found in t + 3, and in the accumulator at the completion 
of the routine. 

c. Space Required 

54 cells of instructions and constants 
1 cell of working storage 

d. Error Codes 


None 






-2. 


REV. 6/1/57 


5. RESTRICTIONS 

The argument, X, must be scaled 2 32 

and within the stated range. 

6. CODING INFORMATION 


Constants 



LOC 

CONSTANT 

Explanation 

2VPI 

24 27630 15554 

(2/n) • 2 35 

MASK 

37 77777 77774 

Modulus 

N1 

40 00000 00000 

l.*2» 

N2 

20 00000 00000 

1 * 2 s4 

N3 

04 00000 00000 

1 * 2 s2 

DAD 

00 00001 00000 

U-Address Advance 

A4 

00 00122 65046 

Coefficients in 

A4+1 

00 04626 21024 

Polynomial 

A4+2 

01 21465 66440 

Expansion of 

A4+3 

12 25357 16221 

sin (tt/4 n/n 

A4+4 

31 10375 52420 


2PI 

31 10375 52421 

2v * 2 32 

Working Storage 




1 cell labeled STORE 


o. Timing 

Maximum 4.26 mis 
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» 

MJ 

» o 
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, TO EXIT 


» 
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» 

MJ 

, o 
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* 
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» 

AT 
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, Q 
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» 

RELC3 

» 

00 

t A4+1 

, 00000 

, TEST AND PRESET 
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ITEM NUMBER LOC 


» 

2 VP I 

f 

B24 

» 

27630 

» 

15554 

, 2 OVER PI SOLD 35 


» 

MASK 

* 

B37 

» 

77777 

» 

77774 

, MODULUS 


t 

N1 

» 

B40 

» 

00000 

» 

00000 

, 1 SOLD 35 



82 

» 

B20 

» 

00000 

» 

00000 

, 1 SOLD 34 


» 

N3 

i 

B04 

» 

00000 

> 

00000 

, 1 SOLD 32 


* 

UAD 

i 

B 

i 

1 

i 

00000 

, U ADVANCE 


» 

A4 

i 

B 

» 

122 

» 

65046 

, CONSTANTS 


» 


> 

B 

i 

4626 

* 

21024 

, FOR 


» 


» 

BOl 

> 

21465 

» 

66440 

, POLYNOMIAL 


» 


» 

B12 

> 

25357 

» 

16221 

, EXPANSION 


» 


» 

B31 

» 

10375 

» 
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, 


1 

2PI 

» 

B31 

» 

10375 

i 
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, 2PI SOLD 32 


# 


* 
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» 


» 
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1. IDENTIFICATION 


RRF9, SQUARE ROOT STATED POINT 
A. E. Roberts, Jr., M. D. Bernick 


JUNE 20, 1957 


Remington Rand Univac 


2. PURPOSE 

Given X, compute Y(X) = vT" 

3. METHOD 

e. Accuracy: 33 significant bits 

33 71 

b. Range of Argument: 0<X <2 

c. Scaling: X * 2 33 , Y(X) * 2 33 

d. Derivstion: for l<n<2, then for suitable, a, b, c and d y = a(n+d) 4- 

b - is an approximation of v^n"" 0 One application of the Newton- 

Rsph3on Formula (with proper round-off bias, as error of Formula is always 
positive) then gives Sn with essentially 33 bit accuracy. 


USAGE 




a. Calling Sequence 




LOG 

OP 

U ADDR 

V ADDR 

r 

RJ 

t 4- 2 

t 

r 4- 1 

Normal 

Return 



b. Control and Results 

The 36 most significant bits of the argument, X, must be initially stored 
at t 4 5, and the 36 least significant bits of X at t 4- 6. The 36 most 
significant and least significant bits of the function, Y, will be found 
at t 4- 3 end t 4- 4 respectively upon completion of the routine. The 72 
bits of the function, Y, will also be found in the Accumulator upon 
completion of the routine, 
c. Space Required 

55 cells of instructions and constants 


4 cells of working space 





- 2 - 


REVISED 6-20-57 


d. Error Codes 

The following error code is left in the accumulator on return through 
the error exit: 

CODE EXPLANATION 

RRF9 * 2 12 X < 0 

5. RESTRICTIONS 

33 

The argument, X, must be scaled 2 and must be non-negative. 

6. CODING INFORMATION 


Constants 

LOG 

CONSTANT 


EXPLANATION 

C 

26 

47670 

31361 

0=24,291,062,513 

Cl 

00 

00000 

65324 

A=27,348 

C2 

11 

45346 

44516 

B=10,291,988,814 

C3 

33 

06571 

40273 

0=29,104,062,651 

C4 

00 

00000 

00023 

19 

C5 

26 

50117 

14640 

<v/2~ * 2 34 (Rounded) 

C6 

00 

00000 

00077 

Shift Count Mask 

C7 

20 

00000 

00000 

1 * 2 34 

C8 

37 

77777 

77777 

Round Factor 

CODE 

54 

54311 

40000 

Error Code for X < 0 


b. Working Space 

4 cells labeled STORE thru STORE+3 

c. Timing 

-33 

Approximate maximum of 2.92 mis for X = 1 * 2 
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PAG E 3 OF 
PROBLE M RRFQ 
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ITEM NUMBER 


LOC 

OP 


u 

V 

COMMENTS 



1 


SUB 

9 

RRF9 

, 55 


£ 


9 


TEMPS 

9 

4 

, o 


£ 


9 


IN OUT 

9 

2 

, 2 


£ 


9 

ENTRY 

MJ 

9 

0 

, START 


£ 


9 

ERROR 

ALARM 

9 


i 


£ 


9 

EXIT 

MJ 

9 

0 

, FILL 


£ 


9 

YM 

00 

9 

FILL 

, FILL 

FUNCTION 

£ 


9 

YL 

00 

9 

FILL 

, FILL 

SOLD 33 

$ 


9 

XM 

00 

9 

FILL 

, FILL 

ARGUMENT 

£ 


9 

XL 

A 

o 

o 

9 

FILL 

, FILL 

SCLD 33 

£ 

V 


9 

START 

SP 

9 

XM 

, 36 

ARGUMENT 

£ 


9 


SA 

9 

XL 

, 0 

TO A 

£ 


9 


SJ 

9 

NEG 

, NONEG 

TEST SIGN OF X 

£ 


9 

NEG 

SP 

9 

CODE 

> 0 

X NEG 

$ 


9 


MJ 

9 

0 

, ERROR 

GO TO ALARM 

£ 


9 

NONEG 

ZJ 

9 

NOZERO 

, KOED+3 

TEST X = Y = 0 

£ 


9 

NOZERO 

SF 

9 

A 

, STORE 

K TO V OF STORE 

£ 


9 


SP 

9 

A 

, o 

E3 

II 

<C 
*■— 

£ 


9 


TP 

9 

A 

, STORE+1 

N TO STORE 

£ 


9 


SA 

9 

C 

, 18 

N+D SCLD -18 = F 

£ 


9 


LTL 

9 

0 

, STORE+2 

STORE F 

£ 


9 


MP 

9 

Cl 

, STOFE+2 

FORM AF 

£ 


9 


AT 

9 

C2 

, STORE+3 

STORE AF+B 

£ 


9 


SN 

9 

c 3 

, 15 

-C SCLD 15 TO A 

£ 


9 


DV 

9 

STORE+2 

, A 

FORM -G=C OVR F 

£ 


9 


AT 

9 

STORE+3 

, STORE+2 

Y(1)=SQRT N SCLD 

16£ 












i o< *■ Jl ( j iuja ;■ 

LOC 


OP 

U 


V 


COMMENTS 


f 


9 

SP 

, STORE+1 

9 

32 

9 

N SOLD 32 TO A 

$ 

f 


9 

ss 

, STORE+2 

9 

0 

9 

N SOLD 32 -Y(l) 

$ 

t 


9 

DV 

, STORE+2 

9 

A 

9 

(N OVR Y(l) >+Y(l)-l*:l(2) $ 



9 

AT 

, STORE+2 

9 

STORE+2 

9 

Y(2)=SQRT N SOLD 17 $ 

* 


9 

LQ 

, STORE 

9 

35 

9 

K(0) TO Q(35) 

1 

t 


9 

QT 

, C6 

9 

A 

9 

(K-K(O) ) OVR 2 TO A % 

9 


9 

TV 

, A 

9 

KODD 

9 

SET SHIFT=(K-1) OVR 2 $ 

* 


9 

TP 

, INSTC 

9 

KODD+1 

t 

SET FOR K LESS 0R=37 $ 

* 


9 

TJ 

t C4 

9 

KTEST 

9 

IS 19 CtRTR (K-K(O) ) OVR 2 

t 


9 

TP 

, INSTC+1 

9 

KODD+1 

9 

SET FOR K GRTR 37 

$ 

t 

KTEST 

9 

QJ 

, KODD 

9 

KEVEN 

9 

TEST PARITY OF K 

1 

» 

KEVEN 

9 

MP 

, C5 

9 

STORE+2 

9 

FORM (SORT 2. TIMES Y(2) $ 

» 


9 

SA 

, C7 

9 

1 

9 

+1) OVR 2 FOR 

* 

9 


9 

LTL 

, 0 

9 

STORE+2 

9 

K EVEN IN A 

♦ 

9 

KODD 

9 

SP 

, STORE+2 

9 

FILL 

9 

SQRT(N SOLD (K-l) ) 

= Y $ 

9 


9 

00 

, FILL 

9 

FILL 

9 

IF K GRTR 37 SCL -36 $ 

9 


9 

LTL 

, o 

» 

A 

9 

CLEAR A(L) TO 0 

$ 

9 


9 

LTL 

9 0 

9 

IM 

9 

STORE 

e 

9 


9 

LTR 

9 0 

9 

YL 

9 

Y SOLD 33 

$ 

9 


9 

MJ 

» o 

9 

EXIT 

9 

EXIT 

$ 

9 

INSTC 

9 

MJ 

» 0 

9 

KODD+3 

9 

INSTRUCTIONAL 


9 


9 

SA 

, C8 

9 

0 

9 

CONSTANTS 

i 

9 

C 

9 

B26 

, 47670 

9 

31361 

9 

D=24 291 062 513 

$ 

9 

Cl 

9 

B 

9 

9 


9 

A=27 m 

$ 

9 

C2 

9 

Bll 

, 45346 

9 

44516 

9 

B=10 291 988 814 

$ 











REMINGTON RAND UNIVAC 


PAGE_£ 


OF 


PROBLEM RRF9 


CODED B Y Roberts.Bernlck DAT E REV.6-20-5 7 


ITEM NUMBER 

LOC 


OP 


U 

V 


COMMENTS 


1 

C3 

9 

B33 

i 

06571 

, 40273 

9 

C=29 104 062 651 

% 

9 

C4 

9 

B 

* 


, 23 

9 

DECIMAL 19 

% 

9 

C5 

9 

B26 

» 

50117 

, 14640 

9 

SORT 2 SOLD 34 

$ 

9 

C6 

9 

B 

» 


, 77 

9 

SHIFT COUNT MASK 

% 

9 

C7 

9 

B20 

» 

00000 

, 00000 

9 

1 SCLD 34 

$ 

9 

C8 

9 

B37 

» 

77777 

, 77777 

9 

ROUND FACTOR 

* 

9 

CODE 

9 

B54 

* 

54311 

, 40000 

9 

ERROR CODE 

t 

9 


9 

ENDSUB 

» 


t 

9 


1 










1. IDENTIFICATION 


RRF6, ARCOOS X STATED POINT 

A. Franck, R. Van Hilst 15 June 1957 
Remington Rand Univac 

2. PURPOSE 

Given X, compute Y(X) = arccos X in radians 

3. METHOD 

a. Accuracy: |Y(X) - arccos X| < 2~*~ 

b. Range of Argument: jXj <1 

c. Scaling: X * 2 33 , Y(X) * 2 33 

d. Derivation: The function arcsin X is computed in radians from the 

7 i 

polynomial approximation - a/1 - X X(X) where X = 2 a.x 

2 tt i=o 

(See Rand Sheet #39.), then arccos X»-arcsin X -f - 

The square root is obtained as follows: for 1<N<2. Then for suitable 

A, B, C, D: Y(l) = A(N+D)+3-C/(N+D) is an approximation to a/TT” with 

relative error not in excess of .0000172; one application of the 

Newton Raphson Formula gives Y(2). (See RRF9, SQUARE ROOT STATED POINT.) 


4. USAGE 

a. Calling Sequence 

LOC 

OP 

U A DDR 

VADDR 

r 

RJ 

t + 2 

t 

r+1 

Normal 

Return 


b. Control and Results 





The argument, X, must be initially stored at t+4; the result, Y(X), v£Ll 
be found at t+3 upon successful completion of the routine, 
c. Space Required 

98 cells of instructions and constants 
7 cells of working space, 
d. Error Codes 

The following error code is left in the Accumulator on return through the 

CODE EXPLANATION 

RRF6 . 2 lp |X|>1 


error exit: 






5. RESTRICTIONS 


33 

The argument must be within the stated range and scaled 2 . 

6. CODING INFORMATION 
a. Constants 


LOC 

C 

10 

CONSTANTS 

00000 00000 

EXPLANATION 

1 * 2 33 

Cl 

00 

00000 

00000 

Zero 

C2 

00 

00000 

00001 

One 

C3 

53 

24135 

20070 

«, • S 44 

C4 

33 

24414 

25535 

• ,42 
% 2 

C5 

56 

40071 

51545 

• 5 * 2 40 

C6 

C7 

37 

46 

50417 

23706 

41234 

66522 

a, • 2 40 
a, ‘ 2 39 

C8 

26 

61651 

66073 

a 2 -2 38 

C9 

44 

42003 

30653 

“1 ' j37 

CIO 

31 

10375 

51633 

a * 2 34 

0 2 

Cll 

37 

77777 

77777 

Round Constant 

C12 

14 

44176 

65211 

E ,33 

2 * 2 

C13 

10 

00000 

00001 

1 * 2 33 + 1 

C14 

26 

47670 

31361 

D = 24,291,062,513 

C15 

00 

00000 

65324 

A = 27,348 

C16 

11 

45346 

44516 

B = 10,291,988,814 

C17 

33 

06571 

40273 

c = 29 , 104 , 062,651 

C18 

00 

00000 

00077 

Shift Count Mask 

C19 

26 

50117 

14640 

v£- 0 2 34 (Rounded) 

C2.0 

20 

00000 

00000 

1 0 2 34 

CODE 

54 

54311 

10000 

Error Code 






-3- 


b. Work Space 

7 cells labeled STORE thru STORE+6 

c. Timing 

—33 

Approximate maximum of 6.75 nils, for X = - (1-1*2 ). 






REMINGTON RAND UNIVAC 


8 


PAG E 4 OF 
PROBLE M RBF6 _ 

coded Bxar M .^.. Ysn BAlB3LDATE 6-15-57.. 

ITEM NUMBER LOC OP P V COMMENTS 



, SUB 

, RRF6 

, 98 

» 

$ 


, TEMPS 

, 7 

, o 

» 

$ 


, INOUT 

, 1 

, 1 

t 

$ 

ENTRY 

, MJ 

, o 

, START 

» 

$ 

ERROR 

, ALARM 

* 

> 

t 

$ 

EXIT 

, MJ 

, 0 

, FILL 

» 

$ 

Y 

, 00 

FILL 

, FILL 

, FUNCTION SOLD 33 

$ 

X 

, 00 

, FILL 

, FILL 

, ARGUMENT S6LD 33 

* 

START 

, TM 

, X 

, A 

, ABS X TO A 

* 


, TJ 

, C13 

, PROG 

, CHCK FOR X GRTR 1 $ 


, SP 

, CODE 

, o 

, ERROR COKE TO A 

1 


, MJ 

, o 

, ERROR 

, GO TO ERROR EXIT 


PROC- 

, TP 

, C12 

, Y 

, Y = PI ovr 2 

$ 


, ZJ 

, NOZERO 

, EXIT 

, FOR X=0 

* 

NOZERO 

, TP 

, A 

, STORE 

, STORE ABS X 

$ 


, TP 

, X 

, A 

, X TO A 

$ 


, T? 

, Cl 

, STORE+1 

, SET FOR POS X 

$ 


, So 

, MINUS 

, PLUS 

, TEST SIGN OF X 

$ 

MINUS 

, TP 

, C2 

, STORE+1 

, SET FOR NEG X 

$ 


, TM 

, A 

, A 

, ABS X TO A 

$ 

PLUS 

, EJ 

, C 

, XQNE 

, TEST X s 1 

$ 


, MP 

, STORE 

, C3 

, EVALUATE 

$ 


, LTL 

, 1 

, A 

, POLYNOMIAL 

* 


, AT 

, C4 

, STORE+2 

, EXPRESSION 

$ 
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ITEM NUMBER 


PAG E 5 OF 


PROBLE M RRF6 



LOC OP 

CODED BYfrarxfr, VapHttsi 

U V 

DATE, (>-^7 

COMMENT! 


9 

, KP 

, STORE 

, STORE+2 

, IN 

$ 

f 

, LTL 

, 1 

» A 

, APPROXIMATION 

$ 

f 

, AT 

, C5 

, STORE+2 

, OF ARCSIN X 

$ 

9 

, MP 

, STORE 

, STORE+2 

, ACCUMULATE 

$ 

9 

, LTL 

, 3 

» A 

, IN 

$ 

9 

, AT 

, C6 

, STORE+2 

, STORE+2 SOLD 34 

$ 

9 

, MP 

, STORE 

, STORE+2 

» 

$ 

9 

, LTL 

, 2 

, A 

» 

$ 

9 

, AT 

, C7 

, STORE+2 

» 

1 

9 

, MP 

, STORE 

, STORE+2 

» 

$ 

9 

, LTL 

, 2 

, A 

» 

$ 

9 

, AT 

, C3 

, STORE+2 

» 

$ 

9 

, MP 

, STOPE 

, STORE+2 

f 

$ 

9 

, LTL 

, 2 

> A 


$ 

9 

, AT 

, C9 

, STORE+2 

i 

$ 

9 

, 1-IP 

, STORE 

, STORE+2 

* 

$ 

9 

, LTL 

, 0 

> A 

» 

$ 

9 

, AT 

, CIO 

, STORE+2 

, X(X) TO STORE+2 

$ 

9 

, TN 

, STORE 

, A 

, FORM (1-X) SCLD 

33$ 

9 

, SA 

, c 

, 0 

, IN A 

$ 

9 

, SF 

» A 

, STORE+3 

, K TO STORE+3 

$ 

9 

, SP 

, A 

, o 

, (R) = N SCLD 34 

$ 

9 

, TP 

, A 

, STORE+4 

, STORE N 

$ 

9 

, SA 

, C14 

» 18 

, FORM AND STORE $ 

9 

, LTL 

, o 

, STORE+5 

, (N+D) SCLD -18=F $ 









REMINGTON RAND 


ITEM NUMBER 


UNIVAC PAC E 6 O F 8 

PROBLE M RRF6 _ 

COIED B Y Frai;ck.VanHUBt DAT E 6-15-5? 


LOG 


OP 

U 

V 


COMMENTS 




9 

MP 

, C15 

, STORE+5 

y 

A x F TO STORE 

$ 



y 

AT 

, C16 

, STORE+6 

9 

A x F+B TO STORE 

$ 



9 

SN 

, C17 

, 15 

9 

-C SOLD 15 TO A 

$ 



y 

BV 

, STORE+5 

, A 

9 

-C OVER F = -G 

$ 



y 

AT 

, STORE+6 

, STORE+5 

9 

Y(l) APPRX SORT N SOLD 


y 

SP 

, STORB+4 

, 32 

9 

N SOLD 32 TO A 

% 



y 


, S70RE45 

, 0 

9 

N - Y (1) 

% 



y 

DV 

, STORE+5 

, A 

9 

(N ovr Y(l) ) -1+Y(1) 

* 


y 

AT 

, STORE+5 

, STORE+5 

9 

=Y(2)*sQRTN SOLD 17 

$ 


y 

LQ 

, STORE+3 

, 35 

9 

K(O) IN Q(35) 

% 



9 

QT 

, C18 

, A 

9 

K-K(O) OVR 2 IN A $ 



9 

TV 

, A 

, KODD 

9 

SET SCALE FOR SQRT N 

* 


9 

QJ 

, KODD 

, KEVEN 

y 

TEST PARITY OF K 



KEVEN 

9 

MP 

, C19 

, STORE+5 

9 

(Y(2)+l) ovr 2 

$ 



9 

SA 

, C20 

, 1 

9 

SOLD 17 EQLS 

$ 



9 

LTL 

» o 

, STORE+5 

9 

SQRT (N SCLD K-l) $ 


KODD 

9 

SP 

, STORE+5 

, FILL 

9 

IN A 

$ 



9 

SA 

, Cll 

, 0 

y 

RND SCL SQRT (l-X)$ 



9 

LTL 

, o 

, A 

9 

SCLD 33 IN A 

$ 



9 

MP 

, A 

, STORE+2 

9 

FORM - ARCSIN X 

$ 



9 

LTL 

, 2 

, A 

9 

SCLD 33 

1 



9 

ST 

, C12 

, Q 

9 

IN Q 

$ 











ITEM NUMBER ICC OP U V COMMENTS 



, TEST 

, U 

, STORE+i 

, NEGX 

, FOR X NEG 

3 



9 

, TN 

, Q 

, Q 

, X IN 2ND QUAD 

3 



, NEGX 

, RS 

, Q 

, C12 

, -ARGOS X EQUALS 




t 

, TN 

, A 

7 A 

, ARCSINX - PI OVR 2$ 



9 

, TP 

, A 

, X 

, STORE FUNCTION 

3 



f 

, hJ 

, 0 

, EXIT 

, SCLD 33 

3 



, XONE 

**t» * 

» 

5 

, C12 

* Q 

, FOR X = 1 

3 



9 

, iv 

, 0 

, TEST 

t 

3 



, c 

, BIO 

, 00000 

, 00000 

, 1 SCLD 33 

3 


o 

, Cl 

, s 

9 

, 0 

, ZERO 

3 



, C2 

* B 

9 

9 1 

, ONE 

3 



, C3 

, B53 

, 24133 

, 20070 

, A(7) SCLD 44 

3 



, C4 

, B33 

, 24414 

, 25535 

, A(b) SCLD 42 

3 



, C5 

, Bp6 

, 40071 

, 51545 

, A(5) SCLD 40 

3 



, C6 

, B37 

, 50417 

, 41234 

, A(4) SCLD 40 

3 



, c? 

t B46 

, 23706 

, 66522 

, A(3) SCID 39 

3 



, C8 

, 326 

, 61651 

, 66073 

, A(2) SCLD 38 

$ 



, C9 

, B44 

, 42003 

, 30653 

, A(l) SCLD 37 

3 



, CIO 

, B31 

, 10375 

, 51633 

, A(0) SCLD 34 

$ 



, Cll 

, B37 

, 77777 

, 77777 

, ROUND CONSTANT 

3 



, C12 

, B14 

, 44l7o 

, 65211 

, PI over 2 SCLD 33 3 



, C13 

, BIO 

, 00000 

, 00001 

, LIMIT ON X 

3 


• 

, cu 

, B26 

, 47670 

, 31361 

, D=24 291 062 513 

3 
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REMINGTON BAND UKIVAC 


PROBLEM RHF6 


CODED B Y Frr.nck. VnnHilst DAT E 6-15-57 


ITEM NUMBER 

LOG 


OP 


U 

V 

COMMENTS 


, C15 

9 

B 

> 


, 65324 

, A * 27 348 $ 


, C16 

9 

Bil 

> 

45346 

, 44516 

, B = 10 291 988 814$ 


, C17 

1 

B33 

9 

06571 

, 40273 

, C = 29 104 062 651 


, C18 

9 

B 

9 


, 77 

, K MASK $ 


, C19 

9 

Bkl6 

9 

50117 

, 14640 

, SORT 2 RND SCLD 34$ 


, C20 

9 

B20 

9 

OOOOC 

, 00000 

, 1 SCLD 34 $ 


, CODE 

9 

B54 

9 

543H 

, IOOlO 

, ERROR CODE $ 


9 

t 

ENESUB 

t 


> 

, $ 









1. IDENTIFICATION 


RRFl, COS X STATED POINT 

A. E. Roberts, R. Van Hilst, 1 June 1957 

Remington Rand Univac 


2. PURPOSE 

Given X, computes Y(X) = sin (X + j) = cos X 

3. METHOD 

a. Accuracy: |Y(X) - cos X| < 2” 30 

b. Range of Argument: |X + < tt . 2 3 ^ radians 

o. Scaling X . 2 32 , Y(X) * 2 32 

d. Derivstion: obtained from the relation sin -4 = 1-2 sin ^ (4 

sin — N C 

and a polynomial expansion for 4 • {See RRE3. - Sin X/ 

-JHJ- U J 

The argument X is incremented by - } then 2/v (X + ir/2) = 4 is 

formed and the routine computes sin^u/2js = cos X. 

4. USAGE Q, : 

a. Calling Sequence 


LOC 

OP 

U ADDR 

V ADDR 

r 

RJ 

t + 2 

t 

r + 1 

Normal 

Return 



b. Control and Results 

The most significant 36 bits of the argument, X, must be initially stored 
in cells t + 4» and the least significant 36 bits of X stored in t + 5. 
The function Y(X) will be found in t +3, and in the accumulator at the 
completion of the routine. 

c. Space Required 

56 cell3 of instructions and constants 
1 cell of working storage 

d. Error Codes 


None 




RESTRICTIONS 


32 

The argument, X, must be sealed 2 and within the stated range. 
CODING INFORMATION 
a. Constanta 


m 

CONSTANT 

mumw 

PIV2 

06 22077 

32504 

s/2 • J2 32 

2VPI 

24 27630 

15554 

2/w * 2 35 

MASK 

37 77777 

77774 

Modulus 

m 

40 00000 

00000 

1 • 2^ 

N2 

20 00000 

00000 

1 * 2 34 

N3 

04 00000 

00000 

1 * 2 32 

UAD 

00 00001 

00000 

U-Addrees Advance 

A4 

00 00122 

65046 

Coefficients in 

A4+1 

00 04626 

21024 

Polynomial 

A4+2 

01 21465 

66440 

V Expansion of 

A4+3 

12 25357 

16221 

sin(n/4 N)/N 

A4+4 

31 10375 

52420 




J 


2 PI 

31 10375 

52421 

2s * 2 32 


b. Working Storage 

1 cell labeled STORE 
c• Timing 

Maximum 4*30 mis. 






REMINGTON RAND UNIVAC 


PAG E 3 O F 5 


PROBLE M RRF1 


CODED B Y Roberts. Van Hllet DAT E6A/5? 
ITEM NUMBER LOC OP _U_V_ COMMENTS 


9 


, SUB 

, RRF1 

, 56 


» 


% 

t 


, TEMPS 

, 1 

» o 


» 


% 

> 


, INOUT 

, 2 

, 1 

> 

» 


% 

i 

ENTRY 

, MJ 

, o 

, START 


» 


% 

* 

ERROR 

, ALARM 

9 

t 


» 

NOT USED 

% 

9 

EXIT 

, MJ 

, 0 

, FILL 


t 


% 

» 

Y 

, 00 

, FILL 

, FILL 


t 

FUNCTION Y 

% 

9 

XM 

, 00 

, FILL 

, FILL 


i 

ARGUMENT X(MSP) 

% 

9 

XL 

, 00 

, FILL 

, FILL 


i 

ARGUMENT X(LSP) 

% 

i 

START 

, SP 

, XM 

, 36 


i 

X TO A 

% 

9 


, SA 

, XL 

f 0 


9 


\ 



, AT 

, PIV2 

» A 


* 

ADD PI OVER 2 

% 

9 


, DV 

, 2PI 

, Q 


» 

FCTR OUT 2 PI 

% 

9 


, MP 

, A 

, 2VPI 


9 

FORM 2 SOLD 34 

% 

» 


, LTL 

, 3 

, Q 


9 

IN Q 

% 

» 


, TP 

, NEGT 

, NEGT + 

2 

9 

FUNCTION PLUS 

% 

> 


, QJ 

, MINUS 

, PLUS 


i 

TEST SIGN OF Y 

% 

» 

MINUS 

, TP 

, RELC1 

, NEGT + 

2 

9 

FUNCTION MINUS 

% 

f 

PLUS 

, QT 

, MASK 

* A 


» 

W+2 MOD 1 SOLD 35 

% 

9 


, QJ 

, EVEN 

, ODD 


> 

TEST QUAD NUMBER 

% 

9 

ODD 

, SS 

» N1 

» 0 


» 

FORM V-l IN R 

% 

9 

EVEN 

, MP 

» A 

, Q 


» 

W-l SQRD IN A 

% 

> 


, SA 

, N1 

» o 


» 

ROUND SCALE 34 

% 

» 


, LTL 

» 0 

» A 


» 

IN A ■ N 

% 
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PAGE 4 OF _5_. 

PROBLEM RRF1 _ 

CODED BY Roberts. Van Hllat.. DAT E,6/1/5? 


ITEM NUMBER 

LOC 

OP 

U 

V 



» 


TN 

i A 

, STORE 

;" - N TO STORE 

$ 

9 

y 

TU 

, RELC 3 

, NEST + 3 

, FORM SINE OF 

% 

9 


TP 

9 M 

, Q 

, PI(V-I) OVER 

% 

$ 

NEST 

MP 

, Q 

, STORE 

, 4(V-1) SOLD 

% 

t 


SA 

, N1 

# o 

, 35 IN A 

% 

» 


LTL 

, o 

, A 

, = S 

% 

9 


AT 

, FILL 

, Q 

* 

% 

9 


RA 

, NEST + 3 

, UAD 

9 

% 

9 


TJ 

, RELC 2 

, NEST 

, TEST END POINT 

$ 

9 


MP 

, Q 

, Q 

, SQUARE S 

1 

9 


SA 

, N1 

# o 

, ROUND SCALE 34 

% 

9 


LTL 

» o 

, A 

, IN A 

% 

9 


MP 

» A 

, STORE 

, ROUND AND SCL 32 

% 

9 


SS 

M2 

f 37 

, 2S SQRD TIMES (-N) 

% 

9 

NEGT 

TN 

» A 

» A 

, MINUS 1 

% 

9 


ST 

, N3 

9 A 

, IN A 

% 

9 


00 

, FILL 

, FILL 

, -A TO A FOR Y POS 

% 

9 


TP 

> A 

, Y 

, STORE FUNCTION 

% 

9 


MJ 

» o 

, EXIT 

, TO EXIT 

% 

9 

RELC 1 

MJ 

» o 

, NEGT + 3 

, RELATIVE 

% 

9 

RELC 2 

AT 

, A4 + 5 

, Q 

, CONSTANTS FOR 

% 

9 

RELC 3 

00 

, A4 + 1 

, 00000 

, TEST AND PRESET 

% 

9 

PIV2 

B06 

, 22077 

, 32504 

, PI OVER 2 SOLD 32 

% 

9 

2VPI 

B24 

, 27630 

, 15554 

, 2 OVER PI SOLD 35 

% 

i> 

MASK 

B37 

, 77777 

, 77774 

9 MODULUS 

1 
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PAGE 




N1 

, B40 

, OOOOO 

t OOOOO 

» 

1 SOLD 35 

N2 

, B20 

, OOOOO 

, OOOOO 

f 

1 SCID 34 

N3 

, BQ4 

, OOOOO 

, OOOOO 

> 

1 SOLD 32 

DAD 

, B 

, 1 

, OOOOO 

9 

U ADVANCE 

M 

, B 

, 122 

, 65046 

9 

CONSTANTS 


, B 

i 4626 

, 21024 

9 

FOR 


, BOl 

, 21465 

, 66440 

9 

POLYNOMIAL 


, B12 

, 25357 

, 16221 

9 

EXPANSION 


, B31 

, 10375 

, 52420 

9 


2PI 

, B31 

, 10375 

, 52421 

9 

2PI SOLD 32 


, ENDSUB 

» 

* 

9 










IDENTIFICATION 


1 . 


RRF5, ARCSIN X 3TATE£) POINT 

A* Franck, M. D» Bernick, REVISED 15 June 1957 

Remington Rand Univac 


!. PURPOSE 

Given X, compute Y(X) = arcain X in radians. 


3. METHOD 

a. Accuracy: |Y(X) - aroain X| < 2 

b. Range of Argument: |X| <1 

c. Scaling: X * 2 3J , Y(X) * 2* 3 

d. Derivation: Y(X) le computed in radiana from the polynomial approximation 

7 

Y(X) fc | - v4 - X X (X), where X « 2 a.X 1 . (See Rand Sheet #39.) 

i=o 

The square root is obtained aa follows: for 1<N<2, then for suitable 
A, B, C, D: Y(l) » A(N+D)4B-C/(N4D) is an approximation to with 

relative error not in excess of .0000172$ one application of the Newton 
Raphson Formula gives Y(2), (See RRF9, SQUARE ROOT STATED POINT.) 

4. USAGE 

a. Calling Sequence 


LOC 

OP 

U ADDR 

u$m 

r 

RJ 

t+2 

t 

r+1 

Normal 

Return 



b. Control end Results 

The argument, X, must be initially stored at t+4j the result, Y(X), will 
be found at t+3 upon successful completion of the routine. 

c. Space Required 

96 cells of instructions and constants 
7 cells of working space 

d. Error Codes 

■ • * . i 

The following error code is left in the Accumulator on return through the 
error exit: 


CODE 

RRF5 * 2 12 


EXPLANATION 

|X|>1 






-2 


REVISED 6-15-57 


5. RESTRICTIONS 

The argument must be within the stated range and scaled 

6. CODING INFORMATION 
a. Constants 


LOC 

CONSTANT 

EXPLANATION 

C 

10 00000 00000 

1*233 

Cl 

00 00000 00000 

Zero 

C2 

00 00000 00001 

1 ‘ 2° 

C3 

53 24135 20070 

3 

CM 

• 

C4 

33 24414 25535 

a ‘ 2^ 
a 6 2 

C5. 

56 40071 51545 

a * 2 40 
a 5 

C6 

37 50417 41234 

a * 2 40 
a 4 * 

C7 

46 23706 66522 

a 3 * ^ 

C8 

26 61651 66073 

-2-2* 

C9 

44 42003 30653 

a l-2* 7 

CIO 

31 10375 51633 

a o * 234 

Cll 

37 77777 77777 

Round Constant 

C12 

14 44176 65211 

W ~33 

2 * * 

C13 

10 00000 00001 

1 * 2 33 + 1 

C14 

26 47670 31361 

0=24,291*062,513 

C15 

00 00000 65324 

A=27,348 

C16 

11 45346 44516 

0=10,291,988,8U 

C17 

33 06571 40273 

0=29,104,062,651 

C18 

00 00000 00077 

Shift Count Mask 

C19 

26 50117 14640 

*/~2 * 2^ (rounded) 

C20 

20 00000 00000 

1 * z 34 

CODE 

54 54311 00000 

Error Code 
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BEV. 6-15-57 


b. Work Space 

7 cells labeled STORE thru STORE + 6 

c. Timing 

• —33 

Approximate maximum of 6.66 mla. for X = -(1 - 1 * 2 )• 
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ITEM NUMBER LOC OP U V COMMENTS 



9 

SUB 

, RRF5 

» 96 

t 

* 


» 

TEMPS 

, 7 

» 0 

> 

$ 


t 

INOUT 

, 1 

, 1 

* 

$ 

ENTRY 

» 

MJ 

, 0 

, START 

» 

$ 

ERROR 

» 

ALARM 

» 

9 

* 

% 

EXIT 

f 

MJ 

, 0 

, FILL 

» 

% 

Y 

9 

00 

, FILL 

, FILL 

, FUNCTION SOLD 33 

1 

X 

9 

00 

, FILL 

, FILL 

, ARGUMENT SCLD 33 

$ 

START 

9 

TM 

, x 

, A 

, ABS X TO A 

% 


9 

TJ 

, C13 

, PROG 

, CHK FOR X GRTR 1 

$ 


» 

SP 

, CODE 

» o 

, ERROR CODE TO A 

$ 


9 

MJ 

, 0 

, ERROR 

, GO TO ERROR EXIT 

$ 

PROG 

» 

TP 

, A 

, Y 

, X=Y IF X=0 

e 


9 

ZJ 

, NOZERO 

, EXIT 

, TEST X = 0 

% 

NOZERO 

9 

TP 

, A 

, STORE 

, ABS X TO STORE 

% 


9 

TP 

, x 

> A 

, X TO A 

% 


9 

TP 

, Cl 

, STORE+1 

, SET FOR POS Y 

% 


9 

SJ 

, MINUS 

, PLUS 

, TEST SIGN OF X 

% 

MINUS 

9 

TP 

, C2 

, STORE+1 

, SET FOR NEC Y 

% 


9 

TM 

, A 

> A 

, ABS X TO A 

% 

PLUS 

9 

EJ 

» c 

, XONE 

, TEST X = 1 

% 


9 

MP 

, STORE 

, C3 

, EVALUATE 

% 


9 

LTL 

, 1 

t A 

, POLYNOMIAL 

$ 


» 

AT 

, CA 

, STORE+2 

, EXPRESSION 

% 


9 

MP 

, STORE 

, STORE+2 

, IN 

i 
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PROBLE M RRF5 _ 

CODED BY Franck.Bernlck DAT E REV.6-15-57 


_OP 

U 

V 

COMMENTS 


, LTL 

, 1 

, A 

, APPROXIMATION 

I 

, AT 

, C5 

, STORE+2 

, OF I 

* 

, MP 

, STORE 

, STORE+2 

, ACCUMULATE 

$ 

, LTL 

, 3 

, A 

» IN 


, AT 

, C6 

, STORE+2 

, STORE+2 SOLD 34 


, MP 

, STORE 

, STORE+2 

» 


, LTL 

, 2 

» A 

t 


, AT 

» C7 

, STORE+2 

9 


, MP 

, STORE 

, STORE+2 

9 


, LTL 

» 2 

, A 

9 


, AT 

, C8 

, STORE+2 

» 

$ 

, MP 

, STORE 

, STORE+2 

9 


, LTL 

, 2 

» A 

t 


, AT 

, 09 

, STORE+2 

t 


, MP 

, STORE 

, STORE+2 

9 


, LTL 

» o 

» A 

9 


, AT 

, CIO 

, STORE+2 

, X(X) TO STORE+2 


, TN 

, STORE 

, A 

, FORM (1-X) SOLD 33$ 

, SA 

» c 

> 0 

, IN A 

$ 

, SF 

, A 

, STORE+3 

, K TO STORE+3 

$ 

, SP 

» A 

» o 

, (R) = N SOLD 34 

$ 

, TP 

, A 

, STORE+4 

, STORE N 

$ 

, SA 

, C u 

» 18 

, FORM AND STORE 

I 

, LTL 

» o 

, STORE+5 

, (N+D) SOLD -18=F 

$ 

, MP 

, C15 

, STORE+5 

, A X F TO STORE 

$ 
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PAGE_ 

PROBLEM 


OF_ 


mi 


CODED DATE._REV Jt fe = 3LJ-JI. 


ITEM NUMBER 


LOC 

OP 

U 

V 

COMMENTS 

9 

, AT 

, C16 

, STORE+6 

, AxP+B TO STORE $ 

f 

, SN 

, C17 

, 15 

, -C SOLD 15 TO A $ 

9 

, DV 

, STORE+5 

, A 

, -C OVER F = -4} % 

9 

, AT 

, STORE+6 

, STORE+5 

, Y(l) APRXSQRXN SSD‘16 $ 

» 

, SP 

, STORE+4 

, 32 

, N SCLD 32 TO A $ 

» 

, ss 

, STORE+5 

, o 

, N - T(D I 

V 

, DV 

, STORE+5 

, A 

, (N ovr 1(1) )-l+l(l)| 

» 

, AT 

, STORE+5 

, STORE+5 

, =I(2)=SQRT N SCLD 17 $ 

t 

, w 

, STORE+3 

, 35 

, K{0) in Q(35) 1 

1 

, QT 

, C18 

> A 

, K-K(O) OVER 2 IN A| 

» 

, TV 

, A 

, KODD 

, SET SCALE FOR SORT N $ 

» 

, QJ 

, KODD 

, KEVEN 

, TEST PARITY OF K $ 

, KEVEN 

, MP 

, C19 

, STORE+5 

, (Y(2)+l) OVR 2 $ 

» 

, SA 

, C20 

, 1 

, SCLD 17 EQUALS $ 

» 

, LTL 

» o 

, STORE+5 

, SQRT (II SLD K-l) $ 

, KODD 

, SP 

, STORE+5 

, PILL 

, IN A $ 

i 

, SA 

, Cll 

, 0 

, RND SCL SQRT (l-X) $ 

> 

, LTL 

» o 

, A 

, SCLD 33 IN A 9 

9 

, MP 

, A 

, ST0RE+2 

, X(X) TIMES SQRT (l-X) $ 

» 

, LTL 

» 2 

, A 

, SCID 33 IN A $ 

f 

* ST 

, C12 

, Q 

, -ARCSINX SCLD 33 IN :Q $ 

, TEST 

, IJ 

, STORE+1 

, NEGY 

, TEST FOR NEG I $ 

9 

, TN 

, Q 

, Q 

, I POS I 

, NEGY 

, TP 

, Q 

, Y 

, STORE FUNCTION $ 

» 

, MJ 

, 0 

, EXIT 

, * 
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PROBLE M RRF5 _ 

CODED B Y Frar.ck.Bernick DAT E REV.6-15-5 7 


ITEM NUMBER LOG 

OP 

U 

V 



, XONE 

, TN 

, C12 

, Q 

, FOR X s 1 

% 

» 

, MJ 

» o 

, TEST 

» 

% 

, c 

, BIO 

, OOOOO 

, OOOOO 

, 1 SCLD 33 

% 

f Cl 

, B 

9 

, 0 

, ZERO 

% 

, C2 

, B 

9 

, 1 

, ONE 

% 

, C3 

, B53 

, 24135 

, 20070 

, A(7) SCLD 44 

% 

t C4 

, B33 

, 24414 

, 25535 

, A(6) SCLD 42 

% 

, C5 

, B56 

, 40071 

, 51545 

, A(5) SCLD 40 

% 

, C6 

, 337 

, 50417 

, 41234 

, A(4) SCLD 40 

% 

, C7 

, B46 

, 23706 

, 66522 

, A(3) SCLD 39 

% 

, C8 

, B26 

, 61651 

, 66073 

, A(2) SCLD 38 

% 

, C9 

, 344 

, 42003 

, 30653 

, A(l) SCLD 37 

$ 

, CIO 

, 331 

, 10375 

, 51633 

, A(0) SCLD 34 

$ 

, Cll 

, 337 

, 77777 

, 77777 

, ROUND CONSTANT 

$ 

, C12 

, B14 

, 44176 

, 65211 

, PI OVER 2 SCLD 33 $ 

, C13 

, BIO 

, OOOOO 

, 00001 

, LIMIT ON X 

$ 

, C14 

, B26 

, 47670 

, 31361 

, D=24 291 062 513 

1 

, C15 

, B 

9 

, 65324 

, A = 27 348 

$ 

, C16 

, ”11 

, 45346 

, 44516 

, B=10 291 988 814 

$ 

, C17 

, E33 

, 06571 

, 40273 

, C=29 104 062 651 

% 

, C18 

, B 

9 

, 77 

, K MASK 

% 

, C19 

, B26 

, 50117 

, 14640 

, SQRT 2 RND SCLD 34 ♦ 

, C20 

, B20 

, OOOOO 

, OOOOO 

, 1 SCLD 34 

% 

, CODE 

, B54 

, 54311 

, OOOOO 

, ERROR CODE 

% 

» 

, ENDSUB 

» 

9 

9 

% 
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Identification 


CE 1002 Tape Handler* 


Harold Dahlbeck Sperry Rand 

Linnea Lanre 9 Corps of Engineers 

1 June 1957 


B. PURPOSE 

This program provides the facilities to read, write, move or rewind 
a tape on any or all Uniservos in variations of mode, spacing and 
direction. 

It provides for the preparation of tapes to be read by several of 
the peripheral equipments. 

Provision is also made for the storage of data in the memory in 
inverse or direct order, and may be read into memory in various 
modes by indicating the number of blocks and/or amount of working 
storage to be filled 0 

The routine can keep an account of the relative position of all tapes 
on the Uniservos in terms of hlooks from the leader position, as well 
as to establish conditions for writing a full tape. It will also 
warn the user of undesirable orders, such as reading or moving 
backward more blocks than it has moved forward. When a tape 
reading fault occurs the routine will automatically attempt 
rereads of that block in various directions and at different bias 
levels. 

C. METHOD 

The program takes as its control the interpretation of two input 
parameters which initiate all tape actionso These parameters 
function as pseudo tape commands. 

* This routine follows the set of specifications set forth in 
November 1956 by Capt. Roger Bate and George Toal of the Corps 
of Engineers. 




There are two counters kept for each servo: 

1* Block counter R_ advances on all read, write, 

and move orders in the forward direction; decreases on 
all read and move backward. 

2. Tape length counter N increased eaoh time a 

block is written onto the tape 0 

These two counters should be set to aero whenever a tape action is 
initiated from the beginning of the tape* 

Do USAGE 

1o The routine was programmed to be used as a straight subroutine, 

or as a USE subroutineo 

It is entered t>y means of the sequence 

r RJ t 2 t (tis starting address of 

routine) 

r V 1 normal return 

2. There are two input parameters which must be pre-inserted 


PI 

at 

t/3 

P2 

at 

t / 4 


3. Before using this routine, one should insure the proper 
setting of the following preset parameters for a given 
installation. 


1. 

NOON 

determines tape length 

2* 

SERVY 

number of servos plus one 

3. 

UL 

upper address limit 

4o 

LL 

lower address limit 


Manual control of the routine is also possible by means of a s m all 


additional routine known as Test 1 



E. CODING INFORMATION 


1. Tape Handler has 653 wordso 

2, The Tape Handler Inserts a 45 command Into 17777a 

3o There are three print routines which can be used independent 
of the tape handler* 

&• Print Non-Negative decimal integer K. 

SP K 0 

RJ PEXIT PRINT 
bo PRINT FLEX-CODE Word K 
SP K 42 

RJ W3 W1 

c. PRINT OCTAL Word K 
SP K 39 

RJ PREXIT PRWORD 
These tags are internal to the Tape Handler, 


Parameters 

The two parameter words have the octal formi 


PI J 

| OPERATION 

B = Number of Blocks 

M = 1st storage loca- 



1 


tion 



C D 

W * Number of words 




P2 

OPERATION 

L = Length of Block 

Not 

Operation 

Servo 


Read Write 

or Length of storage bin 

Used 

A B 

S S 



-V* 


Every reference to the routine must be prefaced by the insertion of these 
two words: Every pair must obey the following general restrictions. 


1 . 

2 . 

3. 


1 «—• SS<CNo. of servos plus one. 
LL — M ^UL 
LL ~ M -/ L ^ UL 


Care should be taken to select the proper parameters to effect the 
required action; thus, a brief discussion of how the routine translates 
the parameters is in order. 

OP.A is first translated. This option permits the programmer to set 
the servo counters to zero in order to begin a fresh tape with zero 
readings and hence keep a meaningful block and tape length count. 

Special heed should be given to this option in order to avoid 
ambiguous interpretation of the counters which are automatically varied 
with the tape action. 

OP. A. 

0 Has no effect on servo counters 

1 Sets R = 0 for servo SS 

2 Sets R = 0 for all servos 

3 Sets N = 0 for servo SS 

4 Sets N - 0 for all servos 

5 Sets N = 0 Sc R = 0 for servo SS 

6 Sets N = 0 & R = 0 for all servos 

7 Sets switch to bypass test for full output tape when 
writing. Resets on next entry to this routine. 

OP.B is ne*t translated and selects the required action. 

0 No action. Exits from routine setting Q to zero. 

1 Sets Read switch (after selecting tape code and increment) 

Then it decodes OP. 


READ 
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2 Sets write switch (after selecting tape code and increment) 
then decodes OP. 

Write. 

3 Moves B blocks forward or backward. Exits from routine 
setting Q to zero. 

4 Rewind servo SS. 

5 Rewind servo SS with interlock. 

6 Rewind all servos. 

7 Rewind all servos with interlock. 

After the selection of a rewind, both servo counters are set to zero for 
the appropriate servo. Q is set to zero and normal exit is made. 


OP.C initiates no tape action by itselfj serves only to select the 
necessary EF code word as well as to set the required switches in the 
routine} e.g., tape direction. 


READ OPTION 

0 Variable Forward 

1 Variable Backward 

2,6,7 Fixed Forward 

3 Fixed Backward 

4 HSP Forward 

5 HSP Backward 
WRITE OPTION 

0 or 1 Variable 

2 or 3 Fixed 

4 or 5 HSP 

6 Tape to Card (Fixed Block 128 - .1" - 2.4") 
Uniprinter II (Fixed Block 50 - 0" - 2.4") 


7 




Options 6 and 7 should be read by using options 2 and 3o HSP 
options reads a true machine variable n word block, whereas 
writing with the HSP option writes a 20 word block<> 

The direction of address incrementing in memory is determined from 
OP. D. 

op*. IL 

0=3=4=5=6=7 Sets increment of plus one for forward 

direction. 

1 Sets increment of minus one for back¬ 
ward direction. 

2 Sets increment of zero (One location 

for all words). 

The WRITE options are translated only if the write switch was set 
(OP. B) 

0 Write W words from M. OP.C selects writing modeo 
(0=2=3=5=7) a - Fixed mode assumes 120 word blocks. 

b - HSP mode assumes 20 word blocks, 
o - Variable mode writes an (L -/ 3) word block. The 

BLI is automatically generated from L and added during 
the write. 

If W is not an even multiple of 120, 20 or L, respectively, 
the fineil block will be padded with tape sentinels to give 
a full blocko 

If W is equal to zero, a stopper block is written onto tape. 

1 Write B blocks, from M. Variable mode only. Assumes that each 
block in memory has one BLI followed by n data words. (This 
implies that M contains a BLI.) Before writing each block, a 
test is made to insure that the first word of eadh block contains 


a BLI. L will be reduced by n /- 1 for each block to prevent 



exceeding the initial L. Failure to meet either of these conditions 
causes an alarm printout. 

4 Write B blocks from M. OP. C selects writing mode 
a - Fixed mode assumes 120 word blocks 
b - HSP mode assumes 20 word blocks 

c - Variable mode writes an (L-^- 3) word block. The B1I is auto¬ 
matically generated from L and added during the write. 

Before starting this option, a test is made to see whether the number 
of words as given by blocks times size will satisfy LL — M- 7 *W"= = "UL 
If W is equal to zero, a stopper block is written onto tape. 

6 Write all blocks contained within L words from M. Variable mode only. 
Assumes that each bloek in memory has one BLI followed by n data 
words. (This implies that M contains a BLI). The first word 
following the last block must be a bin sentinel. Starting at M, 
blocks will be successively written on tape until one of the follow 
ing conditions occur> 

1. Bin Sentinel Found normal exit 

2. Last block exceeds reduced L Alarm print 

3. Proper location does not contain BLI Alarm print 

The READ Options are translated only if the read switch was set (O^.B.) 

0 Read B blocks into Mo OP.C selects reading mode. 

(0=2=3=6) a - Fixed mode reads in 120 word blocks. 

b - HSP mode reads in N word blocks. 

o - Variable mode does not insert BLI or sum check in memory. 

1 Read B blooks into M. Variable mode only. 

Insert one BLI (but not Sum Check) into memory as first word of 
blook followed by n data words. 

For options 1 and Oo, L = maximum storage allowed and is reduced 
as each variable block is read in. Should the remaining space be 
insufficient to store the last block; reading is stopped, the last 
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block is not read in and the tape will be repositioned. This latter action 
will cause an alarm print. 

4 Read Blocks as needed to fill up L words. 

On variable mode, no BLI or sum check is inserted. 

5 Read Blocks as needed to fill up L words. Variable mode only. 

Inserts one BLI (but not sum check) into memory as first word 
of block followed ty n data words. 

For options 4 and 5, (L - 1) = maximum storage allowed. A special end 
sentinel (07 77777 77777) is added as the next word after the last valid 
word stored. W = longest variable block expected. Shoull the regiaining 
space be insufficient, (as determined by the incoming BLI) the last 

i 

block will not be read in and the tape is repositioned. Also, if W 
is larger than the reduced L, no further attempt will be made to read. 

7 Check Read Tape OP. C selects mode. 

At any desired time, this option may be invoked to 
1. Print out 
CHRD 



Variable 
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ALARM EXIT AND ERROR PRINTOUT 

Since the Tape Handler is normally referenced and controlled from 
external routines by means of the two parameter words, it was felt necessary 
to incorporate into the routine itself a method which guards against the 
insertion of improper parameter words as well as to monitor the dynamic 
results of the initiated tape actions. To facilitate this aim, it was 
required that normal exit from the routine would always be accompanied 
by the insertion of an appropriate bit pattern into the Q-Register, which 
could then be interrogated further by an external diagnostic routine 
which checks the bits in Q immediately following the exit from the Tape 
Handler. 

There are only three normal exits from the tape handler! 

1. When this routine exits with no unexpected results* ^ 5^0« 

2. Tape Bid Sentinel Found Q =0,, =1 

35 -14 

a - Test is made for variable and fixed mode, 
b - The block was read into memory, 
c - The tape is not repositioned or rewound, 
d - Exit is preceded by a printout. 

3. Output Tape Full <2 =Q_ = 1 

35 33 

a - After each block is written, the tape length counter 
is increased by an amount dependent on block size and 
spacingo 

b - Unless the bypass option was selected (A = 7), a test 
is made to aee if the last accumulated sum exceeded the 
tape length constant NOON. If NGON was exceeded, a 
stopper blook is automatically written onto tape and 
the block count increased by one<> HSP option does not 
receive a stopper blook. 
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c - Exit is preceded by a printout. 

Before each exit the accumulator will be filled with a 77 00000 
xxxxx where xxxxx will be the initial address of the current block entry 
should the read order be interrupted by an alarm conditiono 

On an exit print out, the format will consist of the following 
six lintst 


Explanation 

Example 


1. 

Normal Exit Line 

45 00000 

01234 

2. 

PI 

130 00001 

04000 

3o 

P2 

00 02000 

00103 

4o 

Error (or exit) No. 

Exit 

34 

5o 

Servo NOo 

Servo 

3 

6. 

Block No. 

Block 

63 


This printout should enable the programmer to discover the cause 
of the printout. 

In the example given above, one can readily obtain the following 
information* 

1. The tape handler was last referenced from address 01233o 

2. No servo counters were set to zero. 

3. The action called for was a read backward one fixed block from 
servo 3 into the location 04000 and incrementing the address forward 
in memory. 

4. The exit number states that a tape sentinel was discovered in 
block 63o 


SUMMARY OF 


NO EXPLANATION 

34 End Sentinel Found 


33 End of Tape 


32 Mod 6 

31 Unrockable Parity 

30 Unrockabl8 Sum Check 

29 Possible 720 


* Halts on easily identified 
to attempt another reread < 


PRINTOUT! 



counter 

3o Print and Exit 
Last failure to Print and 

read block due to Cease * 

Mod 6 

Last failure to read Print and 

block due to parity Cease * 

Last failure to read Print and 

block due to sum check Cease * 

MACHINE HANGS UP Set PAK to 17777 

on 720 or sprocket to print and exit 

from routine. 


M3 00123, XXXXX. Push start button 


block 
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O-^SS^SERW 


Llr-^ M-^DL 

j 

LL-^My^L-^DL 

LL-^HtA/^UL 


9 Illegal Servo No. 

8 Insufficient Spaoe 

Sign depends upon 
direction in memory. 

-/-= forward) 

7 Move Back Neg N 0 

Read Back Neg 

6 L reduced to point where (L - Block Size) ^~Q 
read or write not possible 

5 Not Block Length Ind» 00 XXXXX XXXXX 


Print and Cease 
Print and 
Cease 

Print and 
Cease 
Print and 
Cease 
Print and 
Cease 


Note: Recovery is possible from errors 9, 8, 7, and 5 tijf 

1. Correcting Parameters PI and P2 manually. 

2. Setting PAK to T. H. starting address and push START. 
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FIX E ) P „ BLOGK 

VARIABLE BLOCK 

BLOCK LENGTH 
INDICATOR 

tan 

3VM . SM 


H3P BLOCK 


sentinels 


STOPPER BLOCK 


SS 

M 


GLOSSARY 

The standard fixed block length is 120 words. The block 
and blockette spacing depend on the option selectedo 
The block contains n /~3 words where the first and last 
words contain the Block Length Indicators, and immediately 
preceding the last word is the word containing the Sum Check. 
Che octal word appearing as 00 XXXXX YYYYY where X = I = 
the number of words in a variable block excluding the 
B 0 ho Io's and the Sum Check. 

Che word which equals the least 36 bits of the algebraic 
summation of all the words within the block excluding the 
B. L. I. 1 s and the Sum Check itself. 

The true machine variable block consisting of n words. 
However, since this option was intended for use with the 
High Speed Printer, the writing of these blocks was re¬ 
stricted to 20 wordso This restriction can be removed 
easily. 

Tape Sentinels: 74 74747 47474 which prints as 8883 8 8 
Basket Sentinel: 07 77777 77777 (used internally with 
the tape handler routine)• 

1. Fixed block length option, 

This block contains 120 words of tape sentinelso 

2. Variable block length option. 

This block consists of only one word, the tape sentinel. 
Servo Number (Two octal digits) 

Initial storage location from which words are written or 
read into memory 0 
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JL Number of blocks (Four octal digits) 

W , Number of Words (Five octal digits) 

E Block Counter for servo 

N Tape Length Counter for Servo 

L Has various meanings depending on use. In general, on 

writing variable blocks, it is the number of words in the 
block. On reading, it determines the amount of space 
available. 

SSRW Preset constant equal to one more than the number of 

servos existing at a particular installation. 

UL Preset upper limit in memory beyond which reading and 

writing is Prohibited. 

LL Preset lower limit in memory bilow which reading and writing 

is Prohibited. 

N CON Preset constant used to limit writing on tapes beyond a 

desired length. Measured in tenths of frames. Currently 
calculated from the formula: 

(1500)' 90% J 12" X 1280 = 20,736,000 tenths of frames 
at 128/inch. 



RWBFJN, Floating Point Bessel Function J n Subroutine 


RWBFJN 
10-15-57 
P. 1 of 6 


Programmed by: David G, Cantor, The Ramo-Wooldridge Corporation 
Date: September 16, 1957 

A, Purpose: 

This subroutine calculates (x) for arbitrary x and integer n. 
Floating point arithmetic is used. 

B. Usage; 

1. Specifications. Standard USE subroutine using built-in 
floating point. 

SUB, RWBFJN, 171 
TEMPS, 5 , 3 

INOUT, 2 , 1 

2 Input 

First word - x in floating point. 

Second word - n in fixed point scaled at 2°. 

3. Output 

First word - (x) in floating point. 

4, Space required 

Length of subroutine - 171 words. 

Temporary storage in compiled region - 8 words. 

Other routines used - RWSQF1, RWCNF4 
Other temporary storage - None 
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5. Error codes - The alarm exit is not used 
C. Restrictions and Coding Information: 

The routine uses 1103A built-in floating point arithmetic, x 
must be a standard floating point number and n must be an 
integer. 

D Timing : 

If |x| ^>3 and |n| = 0 orl, t = 15 m. s. 

If |x| ^3 and |x| ^|nj^>^then t = 25+|n| m. s. 

If|x|<C|n| or | x | < 3 then t=15 + 1.2|n| m.s. 

E, Mathematical Method; 

1. Formulas, 

(a) For J q and when|x|^>3 asympotic formulas are used. 
See E. E. Allen, Analytical Approximations , Mathematical 
Tables and Other Aids to Computation, Vol. 6, October, 1954, 


2 . 


pp. 240-1. 

(b) For (x) when | x | ^>| nj ^>j,and l x | ^ 3 

the recursion formula 

2n 


J . , (x) = 
n+1 x 


J (x) - J , (x) 
n n -1 


is used for which the starting values J q (x) and 
Jj (x) are computed as in (a). 

(c) For (x) when I x I <C|n | or | x |<[3 then a method 

jjc 

described in NN85 is employed. 

Error. 

The routine was checked out by computing J (x) for 


n 


x = 0 (1) 100 and n = 0(1) 50. In this range the error 

never exceeded 10 


^Numerical Note No. 85, "Computations of Bessel Functions," 
Digital Computing Center, The Ramo-Wooldridge Corporation. 
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RWRTI 1, Complex, Floating Point Zeros of Arbitrary Functions 

Author: Werner L. Frank, The Ramo-Wooldridge Corporation 
Date: August 1, 1957 

A. Purpose: 

This subroutine employs an iterative procedure for finding zeros 
of arbitrary functions of the form f(z) = 0 by a method due to 
D. Muller. The programmer must provide an auxiliary routine 
which computes the value of the function f(z) for any argument z 
presented to it by this subroutine. A number of output options 
are available in addition to options in the starting procedure. 

The computation is performed in complex floating point arith¬ 
metic . 

B. Usage : 

1. Specifications. Standard USE subroutine using built-in 
floating point package. 

SUB, RWRTI 1, 464 
TEMPS, 1 , 0 , 

INOUT, 2 , 4 , 

2. Input 

First word: XO, AUXLOC, N 

Second word. YO, OOOOO , ANS'W'ER 

where AUXLOC = Address of the location of the 


auxiliary routine. This routine 
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must be coded so that the first 
and second cells are the exit and 
entry respectively. That is, 
RWRTI 1 must be able to enter 
the auxiliary with RJ AUXLOC, 
AUXLOC + 1. The argument z 
will be located in the first and 
second of the result cells and the 
value of the function f(z) is to be 
placed in the third and fourth of 
the result cells of the subroutine. 
Number of roots to be sought 
Region of 2N cells where the 
roots are located upon leaving 
the subroutine. Also, estimates 
of roots, if available, are placed 
here prior to initiating the sub¬ 
routine. Otherwise this region 
must contain all zeros. 

Output option (see below) 
Iteration option 

Y = 0, Normal mode. All roots 
are found by N applications of 
the iterative procedure. 

Y = ^Special mode. Whenever 
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a complex root is located its 
conjugate is automatically also 
accepted as a root. 

Output (used by the auxiliary routine) 

First word - z^ 

Second word - Zj 
Third word - f^(z) 

Fourth word - fj(z) 
where z^ = real part of z 

Zj = imaginary part of z 

f j^(z) = real part of f(z) 

fj (z) = imaginary part of f(z) 

Depending upon the option chosen the roots which are found 
are output on magnetic tape by employing the output processor 
system. In addition the roots are also stored internally as 
indicated above. The options available are selected by choice 
of the octal digit X in the first parameter cell: 

X = 4 All successive iterants and associated functional 
values are output with 6 column, floating point 
format. The order is 
z , f(z), f r (z) 

X = 0 Only the final iteration and not the intermediate 
iterations are output. The ordering is as above. 

(See Mathematical Method for exceptions.) 
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An identification number for each line of printing is printed 
on the left margin and two line skips are made between roots 
A page eject is made prior to leaving the subroutine. 

X = 2 No output is written. The output processor is 

not activated. 

In all three cases the results will be located in the region 
reserved for them. A program constant m, limits the 
number of iterations to 100. At that time the current iterant 
is accepted as a root and the process continues. This 
constant is located in word 425 (C 9) of the subroutine. 

4. Space required 

Length of Subroutine: 464 cells 

Temporary storage in compiled region: 1 cell 

Other subroutines used: RWP 1 

RWF 1 

Auxiliary routine 

Other temporary storage: 2N cells 

5. Error codes - The alarm exit is not used. It is possible 
to obtain machine exponent overflow alarm when the 
floating point number range is violated. It is advised in 
such instances that the problem be rescaled if possible. 

Restrictions and Coding Information 

Numerical data must be in standard USE complex floating point 
representation. The program is self-contained, performing its 
own complex arithmetic and calling for the output subroutine 
RWP 1 and RWF1. The 1103A built-in floating point package 
is used. The auxiliary program must not destroy the argument 
z in the first and second words of the output cells. 
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D. Timing 

The timing is largely dependent on the amount of computation 
necessary to evaluate f (z). Computing time for one iteration, 
excluding output and the evaluation of f(z), is approximately 

45 milliseconds. 

E. Mathematical Method 

In [Go. Muller discusses an iterative procedure for finding 
real and complex roots of a polynomial equation whose coeffici¬ 
ents may be complex. Selecting three arbitrary points z^, 
and z^ as starting values, one chooses z^, the next approxi¬ 
mation to the root, as one of the zeros of the second-degree 
polynomial which passes through the functional values F(z^), 

F(z 2> and F(z^). The iteration continues by dropping the first 
point and repeating the quadratic fit for the points z^. z^ and 
z^ and the associated functional values. The process halts 
when successive iterants pass a suitable convergence test. 

The formal process described above is applied in this routine 
to any equation of the form F(z) = 0. The proof of convergence 
in the small, which was given by Muller for polynomial equations, 
also holds for general equations of the form F(z) = 0, where F(z) 
is analytic in the neighborhoods of its roots. Although no proof 
of convergence in the large is available, to our knowledge the 
method has never failed on any of these general problems which 
have been attempted at The Ramo-Wooldridge Corporation. 

1. Muller, D. "A method for solving algebraic equations using an auto¬ 
matic computer, " Mathematical Tables and other Aids to Computa¬ 
tion, Vol. X, Oct. 1956 pp. 208-215 
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The explicit formulas used in this computation are: 
z i+3 = z i+2 + (z i+2 “ z i+l J d i+3' • 


where 


i+3 


.2F(z i+2 ) (l + d. +2 ) 


h i+2- J^i+2 _4F(z i+2 )d i+2 (l+d i+2 ) [F^d 

i+2 " F(z i+1 ) (1+d i+2 )tF(z i+2 ) JJ 


Tn 


and 

b i + 2 ■ F <*i> d f + 2 ‘ F <Vl> < 1+d i + 2» 2 + F <*i + 2>< 1+2d i + 2>- 

The sign in the denominator is chosen to give d i+ ^ the smaller 
magnitude. Coupled with one of the optional starting procedures 
where z^ = -1, z^ = 1 and z^ = 0 the roots are found in an approx¬ 
imately ascending order of magnitude. 


After one root is obtained the subroutine proceeds with the 
effective function Fj(z) where 


F.W-IliL 

1 z-z 1 


and in general we consider 


F f (z) = F ffi ■ r = 1, 2, . . ., N-l 

TT (a-*:) 

i= 1 

This procedure works readily for functions having simple roots. 
On the other hand, if a function possesses multiple roots, $ then 
F r (z) is indeterminate when z approaches a ^ which may already 
have been found. However, even in this case the process has 
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never failed. In fact, roots of multiplicity six or more have 
been found successfully. This is primarily due to the fact that 
multiple roots are found to much less accuracy than simple 
roots and behave, in effect, like clustered roots. 

The structure of this subroutine is given in the flow diagram 
below. A number of details are noted here. 

Starting procedure - In finding the i^ root the 2i and 2i+l cell 
of the answer region are inspected and one of the following 
options is selected: 

(a) Contents zero - starting values are -1, 1, 0 

(b) Contents z / 0 - starting values are z and z(l + e ) 

_ 3 

where « = 10 in this routine. The quantity « can be 
changed by the programmer by suitable altering the 
31 st and 33 r< *word of this subroutine. 

It is important to note that in the case of bunched roots it is 
possible that one is not led to the root closest to an approximation 
which may have been used to start the iteration. While convergence 
to some root will occur, this may invalidate the effectiveness of 
some other guess which may follow. 

Output The processor output system is employed to: 

(a) Output all iterations for a root with the information: 
identification, z., F(z^) and F r (z.) 

(b) Output only the finally converged to values 
z, F(z) and F y (z) and the identification 
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(c) No output. 

In all three instances the root z is placed in the 2i and 2i+l 

cilU »# ih# <U*trpyi»g otim**# which may 


have been there. 

Convergence Several convergence tests are required to 
accomodate all the special cases arising. The iteration 
continues until 


(a) 


'i+1 


z. 

l 


J i+1 


<« 


or (b) j F(z .)|<€ 2 and |F r (z .)|<« 2 


Test (b) is necessary in order to stop the iteration if the lower 
bound (2" ) of the floating point number range is reached and 

to prevent discrepancies in the values F r (z^) and F(z.) due to 
the effect of j-j (z-z.) which may be very large or very small. 
* = * .20 

In this routine t 2 = 10 has been found sufficient for most 
purposes. The programmer can change this quantity by altering 
word 428 (Cl2) of this subroutine. 

In (a) one actually tests 

max exp(z. +1 ) - max exp(z. +1 - z.)> t 1 


where max exp(z) is the larger of the two exponents associated 

with the real and imaginary component of z. In this routine 
$ 

e j = 20 which yields approximately 6 or more places of 

$ 

accuracy in the roots. The quantity is contained in word 
423(C7) of this subroutine and is also used in similar tests as 


described below. 
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Conjugate option - At the choice of the programmer the conjugate 
of a located complex root can be admitted as a root without any 
further iterations. The following criteria must be passed in or¬ 
der for z = a + ip to be considered a complex number: 

(a) exp (P) - exp (o)<« j 
and (b) lpi^« 3 

la routine < j - JO" 6 tad ij la word 427(CU} of the 

subroutine. 

Special devices 

a. In forming the product r (z-z.) each factor is tested to see 

i=l 

that no previously found root is approached again. The test em- 
ployed is max exp(z) - max exp (z-z^) ^ which also serves to 

prevent the product from becoming too small. In the event this 
test is violated an arbitrary change on z is imposed by adding t 
(previously defined) to the real part of z. In this event the output 
includes only z and F(z) while F r (z) is replaced by zero. 

b. After each iteration a test is made to prevent undue growth in 

the magnitude of the values of the function F r (z^) and F r (z. + ^). If 

these values do fluctuate a new iterant z* = ( z i~ t ~ :g i +1) j 8 chosen. 

1 2 

% 

One line skip indicates that z^ was formed. 

Auxiliary program. This program evaluates F(z) for a given z 
determined by the subroutine. This coding can include a control 
option limiting the region of search for a root to a well defined 
local portion of the complex plane by properly constraining suc¬ 


cessive iterants. 
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The applicability of this method to general root finding problems 
is noteworthy for a number of reasons. The procedure is 
completely general, requiring no knowledge of the location of 
the roots nor any special starting process. Furthermore, 
complex roots are obtained with the same ease as are real 
roots. Since the iteration requires only the evaluation of the 
function, and never the value of the derivative, the scheme is 
useful in problems where the evaluation of the derivative is 
very difficult. While multiple roots do not present any 
computational difficulties, they are obtained with less accuracy 
than simple roots. Also, the rate of convergence is considerably 
reduced in the case of multiple or clustered roots. 
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$ 

♦N01 

♦ TM 

♦ ANS# 1 

♦ A 

♦ 

$ 


♦ TJ 

♦ C12 

♦ SKIP 

» 

$ 


♦ MJ 

♦ 

♦ N25 

» 

$ 

>SKIP 

♦ TM 

♦ DET 

♦ A 

♦ 

$ 


♦ TJ 

.02 

♦ N02 

♦ 

$ 


♦ MJ 

♦ 

♦ N25 

♦ 

$ 

♦NQ2 

♦ TM 

♦ DETl 

♦ A 

♦ 

$ 


♦ TJ 

♦ 02 

♦CONVG 

♦ 

s 


♦ MJ 

♦ 

♦ N25 

♦ 

$ 

♦ OUT 1 

♦ RA 

♦ T#22 

♦ C8 

t 

$ 


♦ EJ 

♦ C9 

♦CONVG 

♦ 

$ 


♦ TP 

♦ PARI 

♦ A 

♦ 

$ 


♦ SJ 

♦ PU 

♦ OUT 2 

♦ 

$ 

♦ PU 

♦ RWF1 

♦ 03 

♦ 

♦ 

$ 


♦ TP 

♦ T#23 

♦ A 

♦ 

$ 


♦ AT 

♦ CIO 

♦ A 

% 

$ 


♦ RWP1 

♦ A 

♦ 

♦ 

3 


. RWP1 

♦ ARG 

♦ 

* 

3 


♦ RWP1 

♦ ARG1 

♦ 

t 

3 


♦ RWP1 

♦ DET 

♦ 

1 

3 


♦ RWP1 

♦ DETl 

♦ 

i 

j 


♦ RWP1 

♦ ANS 

♦ 

* 

j 












/ 




RWRTl 1 






10-17-57 

• 





P. 18 of 20 


♦ *RWP1 

♦ANS#1 

» 

♦ 

$ 


♦OUT 2 ♦ MJ 

♦ 

♦ FILL 

♦ 

$ 


»BUMPX * FA 

♦ ARG 

♦ C2 

♦ 

$ 


» ♦ TP 

»Q 

♦ ARG 

♦ 

$ 


♦ ♦MJ 

* 

♦ IN 

♦ 

$ 


* CONVG ♦ RA 

♦ M3 

♦ C5 

♦ 

$ 


» »RP3 

♦ 2 

♦ N7 

♦STORE RESULT 

$ 


»N6 »TP 

♦ ARG 

♦ FILL 

♦ 

$ 


♦ N7 *RA 

♦ N6 

♦ CIO 

♦ 

$ 


♦ *TP 

♦ PARI 

♦ A 

♦ 

$ 


♦ ♦ T J 

♦ N6 

♦ N9 

♦ 

$ 


♦ * M J 

♦ 

♦ N8 

♦ 

$ 


♦ N9 ♦ R J 

♦ OUT 2 

♦ PU 

♦ 

$ 


* *RWF1 

♦ CIO 

♦ 

♦SKIP A LINE 

$ 


♦ N8 *RA 

♦ T#23. 

♦ C8 

« 

$ 


* » E J 

♦ T#25 

♦ EX ITl 

♦ 

$ 


♦ ♦ TP 

♦ PAR2 

♦ A 

♦ 

$ 


♦ »S J 

♦ N10 

♦AGAIN 

t 

$ 


»N10 *TM 

♦ ARG1 

♦ T#14 

♦ 

$ 

Q 

» ♦ TM 

♦ ARG 

♦ A 

♦ 

$ 


* ♦ ST 

♦ T#14 

♦ A 

♦ 

$ 


♦ »TJ 

♦ C7 

♦ N10#5 

♦ 

$ 


♦ ♦ MJ 

* 

♦AGAIN 

♦ 

$ 


♦ »TM 

♦ ARGl 

♦ A 

4 

$ 


♦ ♦ T J 

♦ Cll 

♦AGAIN 

♦ 

$ 


♦ CONJUG ♦ TP 

♦ T#26 

♦ A 

♦ 

$ 


♦ *SJ 

♦ AGAIN 

♦ Nil 

♦ 

$ 


♦ Nil ♦ TN 

♦ C8 

♦ T#26 

♦ 

$ 


♦ ♦ TN 

♦ ARGl 

♦ ARGl 

♦ 

$ 


* INM »00 

♦ FILL 

♦ FILL 

♦ 

$ 


* »RPV 

♦ 2 

♦CONVG 

♦ 

i 


♦ * TP 

♦ C3 

♦ ANS 

* 

$ 


♦SBODY »TM 

♦SARG#1 

♦ TEMP 

4 

$ 


♦ ♦ TM 

♦SARG#2 

♦ A 

« 

$ 


* »T J 

♦ TEMP 

♦SCASE2 

♦ 

$ 


♦ >ZJ 

♦SNEXT1 

♦SZERO 

♦ 

$ 


♦SNEXT1*TP 

♦ A 

♦ ANS 

♦ 

$ 


♦ ♦ FD 

♦ TEMP 

♦ ANS 

♦ 

$ 


♦SNEXT2 ♦ TP 

♦ 0 

♦ ANS#1 

♦ 

$ 


» *FP 

♦ANS#1 

♦ Cl 

♦ 

$ 


♦ ♦RWSQF1 

♦ Q 

♦ SQ 

♦ 

$ 


* »TP 

♦ A 

♦ Q 

♦ 

$ 


♦ * FP 

♦ ANS 

♦ TEMP 

♦ 

$ 


♦ *RS 

♦ 0 

♦ SK2 

♦ 

$ 


♦ * S J 

♦SZERO 

♦SNEXT3 

♦ 

$ 

• 

♦ SNEXT3 *RWSQF1 

♦ A 

♦ SQ 

* 

$ 


* »TP 

♦SARG#1 

*A 

♦ 

$ 


♦ * S J 

♦SNEXT4 

♦SNEXT8 

♦ 

$ 


»SNEXT4 ♦ TP 

♦SARG#2 

♦ A 

♦ 

$ 


* »SJ 

♦SNEXT5 

♦SNEXT6 

♦ 

4 
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SNEXT5 ♦TN 

♦ SQ#3 

♦ ANS#1 

♦ 

$ 

• MJ 

• 

♦SNEXT7 

♦ 

$ 

SNEXT6»TP 

♦ SQ#3 

♦ANS#1 

♦ 

$ 

SNEXT7 *RA 

♦ SQ*3 

♦ SK2 

♦ 

$ 

♦ FD 

♦SARG02 

♦ SQ03 

♦ 

$ 

♦ TM 

♦ 0 

♦ ANS 

♦ 

S 

* MJ 

• 

♦NBODY 

♦ 

$ 

SNEXT8 ♦ TP 

♦ SQ#3 

♦ ANS 

♦ 

$ 

»RA 

♦ SQ#3 

♦ SK2 

♦ 

$ 

♦ FD 

♦SARG#2 

♦ SQ#3 

♦ 

$ 

♦ TP 

♦ Q 

♦ANS#1 

♦ 

$ 

♦ MJ 

♦ 

♦NBODY 

♦ 

$ 

SCASE2 ♦ TP 

♦ TEMP 

♦ ANS 

i 

$ 

SNEXT9 ♦ FD 

♦SARG#2 

♦SARG01 

♦ 

$ 

♦ MJ 

• 

♦SNEXT2 

♦ 

$ 

SZERO ♦RS 

♦ ANSI 

♦ A 

♦ 

$ 

♦ TP 

♦ A 

♦ANS#1 

♦ 

$ 

NBODY ♦ MJ 

♦ 

♦ FILL 

♦ 

$ 

BODY *TM 

♦SARG#2 

♦ A 

♦ 

$ 

♦ TM 

♦SARG#3 

♦ TEMP 

♦ 

$ 

♦ TJ 

♦ TEMP 

♦CASE2 

♦ 

$ 

♦ FD 

♦SARG#3 

♦SARG02 

♦ 

$ 

♦ TP 

♦ Q 

♦ TEMP 

♦ 

$ 

♦ FP 

♦ TEMP 

♦ Cl 

♦ 

$ 

♦ FM 

♦ 0 

♦SARG#2 

♦ 

$ 

NEXT1 ♦ TP 

♦ 0 

♦ ANS#1 

♦ 

$ 

♦ TP 

♦ TEMP 

♦ 0 

♦ 

$ 

♦ FP 

♦SARG#1 

♦ SARG 

♦ 

$ 

♦ FD 

♦ 0 

♦ANS#1 

♦ 

$ 

♦ TP 

♦ Q 

♦ ANS 

♦ 

$ 

♦ TN 

♦ TEMP 

♦ Q 

♦ 

$ 

♦ FP 

♦ SARG 

♦SARG#1 

♦ 

$ 

♦ FD 

♦ Q 

*ANS#1 

♦ 

$ 

♦ TP 

♦ 0 

♦ANS01 

♦ 

$ 

♦ MJ 

♦ 

♦NOBODY 

1 

s 

CASE2 ♦FD 

♦SARG02 

♦SARG#3 

♦ 

$ 

♦ TP 

♦ Q 

♦ TEMP 

♦ 

$ 

♦ FP 

♦ TEMP 

♦ Cl 

♦ 

$ 

♦ FM 

♦ Q 

♦SARG#3 

♦ 

$ 

NEXT2 ♦TP 

♦ 0 

♦ANS#1 

♦ 

$ 

♦ TP 

♦ SARG 

♦ 0 

♦ 

$ 

♦ FP 

♦ TEMP 

♦SARG01 

♦ 

5 

♦ FD 

♦ 0 

♦ANS#1 

♦ 

$ 

♦ TP 

♦ Q 

♦ ANS 

♦ 

$ 

♦ TN 

♦SARG#1 

♦ Q 

♦ 

$ 

♦ FP 

♦ TEMP 

♦ SARG 

♦ 

$ 

♦ FD 

♦ Q 

♦ANS01 

♦ 

$ 

♦ TN 

♦ 0 

♦ANStfl 

♦ 

$ 

NOBODY♦MJ 

♦ 

♦ FILL 

♦ 

s 

EXIT1 ♦TP 

♦ PARI 

♦ A 

♦ 

s 
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»TJ 

♦ N6 

♦EXIT2 

• 

$ 


.MJ 

. 

• EXIT 

♦ 

$ 

♦ EX I T 2 

, R WF1 

♦ C14 

• 

♦SKIP PAGE 

$ 


* RWF1 

*C3 

• 

♦OUTPUT BIN 

s 


.MJ 

t 

• EXIT 

• 

$ 

»C1 

, F 

• 1 

• 

♦ 

s 

♦ C2 

, F 

..001 

• 

*E 

s 

>C3 

* 

» 

• 

♦ ZERO 

$ 

♦ C4 

♦ F 

..5 

• 

♦ 

$ 

♦ C5 

♦ 

*2 

♦ 

♦ 

$ 

»C6 

.F 

.2 

• 

♦ 

$ 

»C7 

.02 

♦4000070 

• 

•CONVERGENCE FACTOR 

$ 

♦ C8 

♦ 

. 

• 1 

• 

$ 

*C9 

» 

♦ 

♦ 100 

♦ 

$ 

.CIO 

. 

. 

♦ 2 

♦ 

$ 

• Cll 

♦ F 

» # 000001 

t 

t 

s 

»Cl 2 

» F 

♦ ID-20 

♦ 

• 10-20 

$ 

♦ C13 

. 

» 

• 56 

♦ 

$ 

»Cl 4 

. 

» 

• 11 

• 

$ 

»SK2 

♦ 00 

.1OOOOtB 

9 

• 

$ 

.ANS 

» 

♦ 

♦ 

♦ 

$ 

.ANSI 

♦ 

♦ 

• 

• 

$ 

♦ SARG 

♦RESERV 

. 4 

♦ 4 

♦ 

$ 

♦ T 

.RESERV 

♦ 27 

♦ 27 

♦ 

$ 


.ENDSUB 

. 

• 

• 

$ 
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Programmed by: David G. Cantor, The Ramo-Wooldridge Corporation 
Date: August 25, 1957 

A. Purpose: 

This subroutine calculates (x) or (x) using floating point 
arithme tic. 

B. Usage : 

1. Specifications. Standard USE subroutine using built-in 
floating point. 

SUB, RWBFFO, 97 
TEMPS, 0 , 0 

INOUT, 2 , 2 

2. Input 

First word: x, in floating point. 

Second word: a 

If a is 0, J q (x) is calculated. 

If a is = 0, J (x) and Y (x) are calculated, 
o o ' ' 

If ais<C0, Y (x) is calculated 
o 

3. Output 

First word - J (x), if calculated, 
o 

Second word - Y (x), if calculated, 
o 

4. Space required 

Length of subroutine - 97 words 
Temporary storage in compiled region - none 
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Other routines used - RWLNF2, RWCNF4, RWSQF1. 
Other temporary storage - none 
5. Error codes 

If x<^ 0 and Y q (x) is to be calculated, the routine goes 
to the alarm exit. If x = 0 and Y (x) is to be calculated, 
the routine goes to the RWLNF2 alarm exit. 

Restrictions and Coding Information: 

The routine uses 1103A built-in floating point arithmetic. If 
Y q (x) is to be calculated, x must be positive. The input data 
is not destroyed. For full accuracy the round flip-flop should 
be set to 0. 

Timing: 



J 

Y 

J and Y 


o 

o 

o o 

1 x l >3 

13 

13 

18 

| x <3 

4 

11 

11 


-- time in milliseconds. 

| x < 3 4 11 11 

Mathematical Method : 

1. Formulas 

Rational approximations are used. See E. E. Allen, 
Analytical Approximations ^ Mathematical Tables and 
Other Aids to Computation, Vol. 6, October, 1954, pp. 240-1 


E (J q )|< 6. lO' 8 

6. 1 O’ 8 if IY (x)|<ll 

l = <* 0 >K' 8l ° ^ 

6. 10 |Y o | if | Y q (x)|>1 


2. Error 
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The above error bounds were obtained by calculating 
J q (x) and Y q (x) for x in the following ranges: 

. 0i(. 01)1 
1( . 1)10 
10( 1)100 

and compared for accuracy with the British Associa - 
tion for Advancement of Science Tables of Bessel 


Functions. 
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♦ SUB 

♦RWBFFO 

♦ 97 

t 

$ 


♦TEMPS 

♦ 0 

♦ 0 

♦ 

$ 


♦ INOUT 

♦ 2 

♦ 2 

9 

$ 


♦ MJ 

♦ 

♦ BODY 

9 

$ 

» ALARM 

♦ALARM 

♦ 

♦ 

9 

$ 

»EX I T 

♦ MJ 

♦ 

♦ FILL 

9 

$ 

♦ANS 1 

♦ 

♦ 

♦ 

9 

$ 

* ANS2 

♦ 

♦ 

♦ 

9 

$ 

♦ ARG1 

♦ 

♦ 

♦ 

9 

$ 

* ARG2 

♦ 

♦ 

♦ 

9 

$ 

♦ BODY 

♦ TM 

♦ ARG1 

♦ A 

9 

$ 


♦ TJ 

♦ K1 

♦SMALL 

9 

$ 


♦ TP 

♦ A 

♦ ANSI 

9 

$ 


♦RWSQF1 

♦ A 

♦ SO 

9 

$ 


♦ FD 

♦ <1 

♦ ANSI 

9 

$ 


♦ TP 

♦ 0 

♦ ANS2 

9 

$ 


♦ TP 

♦ CONI 

♦ Q 

9 

$ 


♦ RPV 

♦ 6 

♦NEXT1 

9 

$ 


♦ FP 

♦ ANS2 

♦C0N1#1 

9 

$ 

♦ NEXT1 

♦ FD 

♦ Q 

♦ SQ#3 

9 

$ 


♦ TP 

♦ Q 

♦ SQ#3 

9 

$ 


♦ TP 

♦ CON 2 

♦ Q 

9 

$ 


♦ RPV 

♦ 6 

♦NEXT2 

9 

$ 


♦ FP 

♦ ANS 2 

♦C0N2#1 

9 

$ 

♦ NEXT2 

♦ FS 

♦ Q 

♦ ANSI 

9 

$ 


♦ TP 

♦ 0 

♦ ANS2 

9 

s 


♦ TP 

♦ ARG2 

♦ A 

9 

$ 


♦ TJ 

♦ K 2 

♦NEXT3 

9 

$ 


♦RWCNF4 

♦ 0 

♦ CN 

9 

$ 


♦ FM 

♦ A 

♦ SQ#3 

9 

$ 


♦ TP 

♦ 0 

♦ ANSI 

9 

$ 


♦ TP 

♦ K2 

♦ A 

9 

s 


♦ TJ 

♦ ARG2 

♦ EXIT 

9 

s 

♦ NEXT 3 

♦ TP 

♦ ARG1 

♦ A 

9 

$ 


♦ SJ 

♦ALARM 

♦NEXT4 

9 

$ 

♦ NEXT4 

♦ FA 

♦ K3 

♦ ANS2 

9 

$ 


♦RWCNF4 

♦ Q 

♦ CN 

9 

$ 


♦ FM 

♦ A 

♦ SQ#3 

9 

$ 


♦ TP 

♦ 0 

♦ ANS2 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

♦ SMALL 

♦ FM 

♦ ARG1 

♦ ARG 1 

9 

$ 


♦ FD 

♦ 0 

♦ K4 

9 

s 


♦ TP 

♦ 0 

♦ ANS2 

9 

s 


♦ TP 

♦ CON 3 

♦ Q 

9 

$ 


♦ RPV 

♦ 6 

♦NEXT5 

9 

$ 


♦ FP 

♦ ANS2 

♦C0N3#1 

9 

s 

♦ NEXT5 

♦ TP 

♦ 0 

♦ ANSI 

9 

s 


♦ TP 

♦ K2 

♦ A 

9 

s 


♦ TJ 

♦ ARG2 

♦ EXIT 

9 

$ 


♦ TP 

♦ ARG1 

♦ A 

9 

$ 


♦ RS 

♦ A 

♦ K6 

9 

s 


♦ SJ 

♦ALARM 

♦NEXT6 

9 

$ 

♦ NEXT6 

♦ RWLNF2 

♦ A 

♦ LN 

9 

s 


♦ FM 

♦ A 

♦ ANSI 

9 

s 
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♦ FM 

♦ Q 

♦ K 5 

f 

$ 


♦ TP 

♦ 0 

♦ LN#3 

* 

$ 


♦ TP 

♦ C0N4 

♦ Q 

9 

$ 


♦ RPV 

♦ 6 

♦NEXT7 

9 

S 


♦ FP 

♦ ANS2 

♦C0N4#1 

9 

S 

♦ NEX T 7 

♦ fa 

♦ Q 

♦ LN#3 

9 

$ 


♦ TP 

♦ Q 

♦ ANS2 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

♦ CONI 

♦ F 

♦*0001 

♦ 4476 

9 - 

I 


♦ F 

♦-,0007 

♦ 2805 

9 

$ 


♦ F 

♦.0013 

♦ 7237 

9 

$ 


♦ F 

♦-.00009 

♦ 512 

9 

$ 


♦ F 

♦-.0055 

♦ 2740 

9 

s 


♦ F 

♦-.0000 

♦ 0077 

9 

$ 


♦ F 

♦.7978 

♦ 8456 

9 

$ 

♦ CON 2 

♦ F 

♦-.0001 

♦ 3558 

9 

$ 


♦ F 

♦ .0002 

♦ 9333 

9 

$ 


♦ F 

♦ .0005 

♦ 4125 

9 

$ 


♦ F 

♦-.0026 

♦ 2573 

9 

$ 


♦ F 

♦ .0000 

♦ 3954 

9 

$ 


♦ F 

♦ .04166 

♦ 397 

9 

$ 


♦ F 

♦ .7853 

♦ 9816 

9 

5 

♦ CON 3 

♦ F 

♦.0002 

♦ 100 

9 

S 


♦ F 

♦-.003 

♦ 9444 

9 

$ 


♦ F 

♦ • 044 

♦ 4479 

9 

$ 


♦ F 

♦-.316 

♦ 3866 

9 

$ 


♦ F 

♦1.265 

♦ 6208 

9 

$ 


♦ F 

♦-2.2499 

♦ 997 

9 

$ 


♦ F 

♦ 1.0 

♦ 

9 

$ 

♦ C0N4 

♦ F 

♦-.0002 

♦ 4846 

9 

I 


♦ F 

♦ .0042 

♦ 7916 

9 

$ 


♦ F 

♦-.0426 

♦ 1214 

9 

$ 


♦ F 

♦ .2530 

♦ 0117 

9 

s 


♦ F 

♦-.7435 

♦ 0384 

9 

$ 


♦ F 

♦ .6055 

♦ 9366 

9 

$ 


♦ F 

♦ .3674 

♦ 6691 

9 

$ 

♦ K1 

♦ F 

♦ 3.0 

» 

9 

$ 

♦ K2 

♦ 

« 

♦ 

9 

$ 

♦ K3 

♦ F 

♦1.5707 

♦ 9633 

9 

$ 

♦ K4 

♦ F 

♦ 9.0 

♦ 

9 

$ 

♦ <5 

♦ F 

♦ .6366 

♦ 1978 

9 

$ 

♦ K6 

♦ 00 

♦ 10000TB 

♦ 

9 

$ 


♦ENDSUB 

♦ 

♦ 

9 

$ 
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RWBFF1, Floating Point Bessel Function Subroutine 

Programmed by: David G. Cantor, The Ramo-Wooldridge Corporation 
Date: August 25, 1957 

i) 

A. Purpose: 

This subroutine calculates (x) or (x) using floating point 
arithmetic. 

B. Usage: 

1. Specifications. Standard USE subroutine using built-in floating 
point. 

SUB, RWBFF1, 98 
TEMPS, 0 , 0 

INOUT, 2 , 2 

2. Input 

First word: x, in floating point 
Second word: Q 

If a is >0, Jj (x) is calculated. 

If a is = 0 , (x) and (x) are calculated. 

If a is = <0, Yj (x) is calculated. 

3. Output 

First word: (x), if calculated. 

Second word: Y^ (x), if calculated. 

4. Space required: 

Length of subroutine - 97 words 
Temporary storage in compiled region - none 
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Other routines used - RWLNF2, RWCNF4, RWSQF1 
Other temporary storage - none 
5, Error codes 

If x -3 and Yj (x) is to be calculated the routine goes 
to the alarm exit. If -3<Cx<^0, and (x) is to be 
calculated the routine goes to the RWLNF2 alarm exit. 

Restrictions and Coding Information: 

The routine uses 1103A built-in floating point arithmetic. If 
Y q (x'i is to be calculated x must be positive. The input data 
is not destroyed. For full accuracy the round flip-flop should 
be set to 0. 


D. Timing : 



J 1 

Y 

i 

J 1 and Y ! 


13 

. . .. 

13 

18 

1 x |< 3 

5 

12 

12 


time in milliseconds. 


Mathema tical Method 
1. Formulas 

Rational approximations are used. See E. E. Allen, 
A nalytical Approximations, MTAC, Vol. 6, October, 1954, 
pp, 240 1. 


2. Error: 


Etf^l < 2. 10 


8 


r 5. io'* 


E(Yj) |< 


if | Y t (x) | 1 


8 


5.10 ^ ! Yj (x) | if Y 1 (x)| >1 


1 
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The above error bounds were obtained by calculating 
Jj (x) and (x) for x in the following ranges: 

. 01 (. 01 ) 1 
1 ( . 1)10 
10 ( 1 ) 100 

and compared for accuracy with the British Association 
for Advancement of Science, Tables of Bessel Functions. 








RWBFF1 
10-15-57 
P. 4 of 5 



♦ SUB 

♦RWBFF1 

♦ 98 

9 

$ 


♦INOUT 

♦ 2 

♦ 2 

♦ 

$ 


♦TEMPS 

♦ 0 

♦ 0 

• 

$ 


♦ MJ 

♦ 

♦START 

9 

$ 

* ALARM 

♦ALARM 

♦ 

♦ 

9 

$ 

♦ EXIT 

♦ MJ 

♦ 

♦ FILL 

9 

$ 

»ANS 1 

♦ 

♦ 

♦ 

9 

$ 

* ANS2 

♦ 

♦ 

♦ 

9 

$ 

♦ ARG1 

♦ 

♦ 

♦ 

9 

$ 

* ARG2 

♦ 

♦ 

♦ 

9 

$ 

♦ START 

♦ TM 

♦ ARG1 

♦ A 

9 

$ 


♦ TJ 

♦ K1 

♦SMALL 

9 

$ 


♦RWSQF1 

♦ A 

♦ SO 

9 

$ 


♦ FD 

♦ K 1 

♦ SQ#4 

9 

s 


♦ TP 

♦ 0 

♦ LN03 

9 

$ 


♦ FP 

♦ coni 

♦ CON 1#1 

9 

$ 


, RPV 

♦ 5 

♦ N 1 

9 

$ 


♦ FP 

♦ LN#3 

♦C0N1#2 

9 

$ 

* N1 

♦ FD 

♦ Q 

♦ SQ#3 

9 

$ 


♦ TP 

♦ Q 

♦ LN#4 

9 

$ 


♦ TP 

♦ CON 2 

♦ Q 

9 

$ 


♦ RPV 

♦ 6 

♦ N2 

9 

$ 


♦ FP 

♦ LN#3 

♦C0N2#1 

9 

$ 

♦ N2 

♦ FA 

♦ Q 

♦ SQ#4 

9 

$ 


♦ TP 

♦ Q 

♦ SQ#3 

9 

$ 


♦ TP 

♦ ARG2 

♦ A 

9 

$ 


♦ SJ 

♦ N7 

♦ N 3 

9 

$ 

♦ N3 

♦ FS 

♦ Q 

♦ K2 

9 

$ 


♦RWCNF4 

♦ Q 

♦ CN 

9 

$ 


♦ FM 

♦ A 

♦ LN#4 

9 

$ 


♦ TP 

♦ ARG1 

♦ A 

9 

$ 


♦ SJ 

♦ N4 

♦ N 5 

9 

$ 

♦ N4 

♦ TN 

♦ 0 

♦ Q 

9 

$ 

♦ N5 

♦ TP 

♦ 0 

♦ ANSI 

9 

$ 

♦ N6 

♦ TP 

♦ ARG2 

♦ A 

9 

$ 


♦ ZJ 

♦ EXIT 

♦ N7 

9 

$ 

♦ N7 

♦RWCNF4 

♦ SQ#3 

♦ CN 

9 

$ 


♦ FM 

♦ A 

♦ LN#4 

9 

$ 


♦ TN 

♦ 0 

♦ ANS2 

9 

$ 


♦ TP 

♦ ARG 1 

♦ A 

9 

s 


♦ SJ 

♦ALARM 

♦ EXIT 

9 

$ 

♦SMALL 

♦ FD ♦ A^ K1 ♦ $ 





♦ TP 

♦ 0 

♦ CN#3 

9 

$ 


♦ FM 

♦ Q 

♦ CN#3 

9 

$ 


♦ TP 

♦ 0 

♦ CN#3 

9 

s 


♦ FP 

♦ C0N3 

♦C0N3#1 

9 

$ 


♦ RPV 

♦ 5 

♦ N 8 

9 

$ 


♦ FP 

♦ CN#3 

♦C0N3#2 

9 

$ 

♦ N8 

♦ FM 

♦ 0 

♦ ARG1 

9 

s 


♦ TP 

♦ 0 

♦ ANSI 

9 

$ 


♦ R S 

♦ A 

♦ A 

9 

$ 


♦ TJ 

♦ ARG2 

♦ EXIT 

9 

$ 


♦ TP 

♦ ARG 1 

♦ A 

9 

$ 


♦ RS 

♦ A 

♦ K3 

9 

$ 
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.RWLNF2 

♦ A 

♦ LN 

t 

$ 


. FM 

♦ A 

♦ ANSI 

* 

S 


»FM 

♦ Q 

♦ K4 

* 

$ 


♦ TP 

.0 

♦ LN#3 

. 

$ 


♦ TP 

♦ C0N4 

♦ 0 

. 

$ 


» RPV 

♦ 6 

♦ N9 

» 

$ 


♦ FP 

♦ CN#3 

♦C0N4#1 

♦ 

$ 

* N9 

♦ FD 

♦ Q 

» ARG1 

. 

$ 


♦ FA 

♦ 0 

♦ LN#3 

. 

$ 


♦ TP 

♦ Q 

♦ ANS2 

* 

$ 


♦ MJ 

♦ 

♦ EXIT 

♦ 

$ 

.CONI 

♦ F 

♦-.0002 

♦ 0033 

. 

$ 


♦ F 

♦#.0011 

♦ 3653 

. 

$ 


♦ F 

♦-.0024 

♦ 9511 

» 

$ 


♦ F 

♦.0001 

.7105 

» 

$ 


♦ F 

♦.0165 

.9667 

♦ 

$ 


♦ F 

♦.0000 

♦ 0156 

» 

$ 


♦ F 

♦ .7978 

♦ 8456 

» 

$ 

»C0N2 

♦ F 

♦-.0002 

♦ 9166 

* 

$ 


♦ F 

♦#.0007 

♦ 9824 

♦ 

$ 


♦ F 

♦#.0007 

♦ 4348 

. 

$ 


♦ F 

♦-.0063 

.7879 

» 

$ 


♦ F 

♦#.0000 

♦ 5650 

t 

$ 


♦ F 

♦#.1249 

.9612 

» 

$ 


♦ F 

♦-.7853 

♦ 9816 

♦ 

$ 

♦ CON 3 

♦ F 

♦ .0000 

♦ 1109 

i 

I 


♦ F 

♦-.0003 

.1761 

» 

$ 


♦ F 

♦ .0044 

♦ 3319 

» 

s 


♦ F 

♦-.0395 

♦ 4289 

» 

$ 


♦ F 

♦ .2109 

.3573 

. 

5 


♦ F 

♦-.5624 

.9985 

t 

$ 


♦ F 

. .5000 

.0000 

» 

$ 

♦ C0N4 

♦ F 

♦.0027 

.873 

» 

$ 


♦ F 

♦-.0400 

.976 

. 

$ 


»F 

♦ .3123 

.951 

t 

$ 


♦ F 

♦ -1.316 

.4827 

. 

$ 


♦ F 

.2.168 

.2709 

t 

$ 


♦ F 

♦ .221 

♦ 2091 

. 

$ 


♦ F 

♦-. 6366 

.198 

. 

S 

.<1 

♦ F 

.3.0 

. 

. 

$ 

* K2 

♦ F 

.1.57079 

.63268 

t 

s 

»K3 

.00 

. lOOOOtB 

» 

. 

$ 

.<4 

»F 

. .6366 

.1977 

t 

$ 


♦ENDSUB 

. 

. 

. 

$ 
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RWGQFO, Gaussian Quadrature Subroutine 


Programmed by: David G. Cantor, The Ramo-Wooldridge Corporation 
Date: August 15, 1957 


A. Purpose: ^ 

This subroutine evaluates the definite integral, \ f(x)dx, using 

a 

16 point Gaussian Quadrature. Single precision floating point 
arithmetic is used. 

B. Usage : 

1, Specifications. Standard USE subroutine using built in 
floating point. 


SUB, RWGQFO, 73 
TEMPS, 0 , 0 

INOUT, 3 , 1 

Input 

First word - 00, n, AUX 

Second word - a. Lower limit in floating point. 

Third word - b, Upper limit in floating point. 

n is the number of subintervals 
of the basic interval of integration. 
In each of these subintervals a 
16 point Gaussian Quadrature will 
be performed. AUX is the address 
of an auxiliary routine which 





RWGQFO 
10-15-57 
P. 2 of 8 


calculates the integrand f(x). 

The argument x will be in Q 
upon entrance to the auxiliary 
routine. When the auxiliary 
routine returns control to 
RWGQFO, f(x) should be in Q. 
Entrance to the auxiliary routine 
is made with the command RJ, 
AUX, AUX+1. Therefore, the 
first and second words of the 
auxiliary routine must be the 
exit and the entrance respectively, 
x is in floating point and f(x) 
mast be in floating point. 


3. Output k 

First word - ^ f(x)dx. The result is also in Q. 

4. Space required: 

Length of subroutine - 73 cells 
Temporary storage in compiled region - none 
Other routines used - auxiliary routine prepared by 
programmer 

Other temporary storage - none 

5. Error codes - The alarm exit is not used. 

C. Restrictions and Coding Information: 


n must be greater than, or equal to one. Since machine floating 
point is used the programmer must insure that f(x) and 
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b 

j f(x)dx is within the floating point range, 
a 

D. Timing : 

2. 8 + n(17. 5 + I6t) milliseconds where t is the time of a single 
functional evaluation in milliseconds and n is defined above. 

E. Mathematical Method: 



s t 

Heuristically the integration is equivalent to fitting n 31 
degree polynomials end-to-end to the given integrand, f(x), 
and integrating them exactly. The j d^ are the roots of 
P 16 (x), the Legendre polynomial of degree 16, and the j^c^ 1 
are the corresponding weights. A bound for the error of this 
integration formula is very difficult to calculate. Analytically 
the error, E, is given by: 

,(32) 


E = 


<£l 


(32.')K 


whe re 


T , n(32.') \J 3 3 

K = 2 . -n+ 1/2 and 

<^> 


n 


^is some point in (a, b). See|]lJ and [ 2 ] . For another method 
of error estimation applicable to analytic functions see w- 
If the function does not have a 32nd derivative, the error 
analysis becomes more difficult. 
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This routine may be used for m dimensional integration by 
placing m copies of the subroutine in memory. For example 
suppose that the double integral, 


b d 

\ ^ f(x,y)dx dy is desired. This may be written as 


a c 

d 

dy. Now let g(y) = ^ f(x, y)dx. Then the 

c 
b 

integral becomes g(y)dy. The evaluation of g(y) in the aux- 

a 

iliary routine requires a second copy of RWGQFO in order to 

d 

evaluate for a given y, f(x, y)dx. This method may be ex- 

c 

tended to higher dimensions. 


$ f(x, y) dx 


Some numerical examples of quadrature using this routine 
follow: 

x 

A. I(x) = ^ cos t dt = sin x 
0 


X 

I(x) = sin x 

N=1 

N=2 

N=4 

10. 0 

-.54402111 

-.54402108 

-. 54402113' 

-. 54402110 

20. 0 

.91294525 

.91294508 

.91294540 

. 91294520 

30. 0 

.98803162 

-.98803180 

-.98803157 

-.98803157 

40. 0 

.74511316 

.74467116 

.74511254 

.74511290 

50. 0 

-.26237486 

-.52019490 

26237506 

-.26237451 
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N=8 

-. 54402111 
.91294526 
-. 98803159 
. 74511269 
-. 26237416 


N=16 

-. 54402110 
.91294526 
-.98803163 
. 74511316 
-. 26 237488 


N=32 

-. 54402111 
. 91294522 
-. 98803156 
. 74511318 
-. 26237475 


The first column is x. The second column is sin x evaluated 


by the sine routine. The remaining columns are the results 
of numerical integration using RWGQFO for N = 1, 2, 4, 8, 

16, and 32, respectively. 

The error for n = 32 is due to rounding. Note that the results 
for N = 1 are very good up to x = 30, and degrade very rapidly 
after that. 

B. I(x) = 2 $ = \ ^ 

0 \jt 


X 

I(x)= 2 

N= 1 

N= 2 

N=4 

10. 0 

6. 32455 

6.15767 

6. 20655 

6. 24112 

20. 0 

8.94427 

8. 70827 

8.77739 

8. 82627 

30. 0 

10. 9545 

10. 6654 

10. 7501 

10. 8099 

40. 0 

12. 6491 

12. 3153 

12. 4131 

12. 4822 

50. 0 

14.. 1421 

13. 7690 

13. 8783 

13. 9556 


N=8 

N= 16 

N= 32 



6. 26555 

6.28284 

6. 29505 



8. 86083 

8. 88527 

8. 90255 



10. 8523 

10. 8822 

10. 9034 



12. 5311 

12. 5657 

12. 5901 



14. 0102 

14.0488 

14.0762 
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The first column is x. The second column is 2 \j~x evaluated 
using the square-root routine. The remaining columns are 
the results of numerical integration using RWGQFO for N = 
i, 2, 4, 8, 16, and 32, respectively. These results were 
rounded to six places because the accuracy is so low that 
the last two places are not significant. This example indicates 
clearly the problems involved in integrating a function with 
a singularity at the end points. 

1 Hildebrand, Introduction to Numerical Analysis, McGraw-Hill, 
1956. pp. 312-367 

2 Lowan, Davids, and Levenson, Tables of the Zeroes of the 
Legendre Polynomials of Order 1-16 and the Weight Coefficients 
for Gauss' Mechanical Quadrature Formula, Bull. American 
Math. Society, Vol. 48, No. 10, pp. 739-743, October, 1942. 

3 Davis and Rabinowitz, On the Estimation of Quadrature Errors 


for Analytic Functions , MTAC, October, 1954, pp. 193-203. 
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♦ SUB 

» RWGQFO 

♦ 73 

* 

$ 


♦ INOUT 

♦ 3 

*1 

♦ 

$ 


♦ MJ 

♦ 

♦START 

♦ 

$ 


♦ALARM 

♦ 

♦ 

» 

$ 

♦ EXIT 

♦ MJ 

♦ 

♦ FILL 


$ 

♦ ANS 

♦ 

♦ 

♦ 

» 

$ 

♦ ARG 

♦RESERV 

♦ 3 

♦ 3 

* 

$ 

♦ START 

♦ TV 

♦ ARG 

♦ AUX 1 

9 

$ 


♦ SP 

♦ ARG 

♦ 15 

9 

$ 


♦ TU 

♦ A 

♦ AUX 1 

9 

$ 


♦ LTO 

♦ 6 

♦ TEMP#1 

9 

$ 


♦ LTO 

♦ 0 

♦ TEMP 

9 

$ 


♦ RA 

♦ AUX 1 

♦ K1 

9 

$ 


♦ TP 

♦ A 

♦ AUX 2 

9 

$ 


♦ RS 

♦ ANS 

♦ A 

9 

$ 


♦ RS 

♦ TEMP 

♦ K1 

9 

$ 


♦ NP 

♦TEMP#1 

♦ K2 

9 

$ 


♦ FS 

♦ARG#2 

* ARG#1 

9 

$ 


♦ FD 

♦ Q 

* TEMP#1 

9 

$ 


♦ TP 

♦ 0 

♦TEMP02 

9 

$ 


♦ FD 

♦ Q 

♦ K 3 

9 

$ 


♦ TP 

♦ 0 

♦TEMP#3 

9 

s 


♦ FA 

♦ 0 

*ARG#1 

9 

$ 

♦ LOOP 1 

♦ TP 

♦ 0 

♦TEMP#4 

9 

$ 


♦ TP 

♦ K4 

♦TRANS 

9 

$ 

♦ L00P2 

♦ RPB 

♦ 2 

♦ NEXT 

9 

$ 

♦ TRANS 

♦ TP 

♦ CON 

♦TEMP#5 

9 

J 

♦ NEXT 

♦ FM 

♦TEMP#5 

*TEMP#3 

9 

$ 


♦ TP 

♦ 0 

* TE MP#5 

) 

$ 


♦ FA 

♦ 0 

*TEMP#4 

9 

$ 

♦ AUX1 

♦ R J 

♦ FILL 

♦ FILL 

9 

$ 


♦ TP 

♦ Q 

♦TEMP#1 

9 

$ 


♦ FS 

♦TEMP#4 

♦TEMP05 

9 

$ 

♦ AUX 2 

♦ RJ 

♦ FILL 

♦ FILL 

9 

$ 


♦ FA 

♦ 0 

♦TEMP#1 

9 

$ 


♦ FP 

♦ TEMP#6 

♦ ANS 

9 

$ 


♦ TP 

♦ 0 

♦ ANS 

9 

$ 


♦ RA 

♦TRANS 

* K5 

9 

$ 


♦ TJ 

* K6 

♦ L00P2 

9 

$ 


♦ FA 

♦ TEMP#4 

♦TEMP02 

9 

$ 


♦ I J 

♦ TEMP 

♦ L00P1 

9 

$ 


♦ FM 

♦ ANS 

♦TEMP03 

9 

$ 


♦ TP 

♦ 0 

♦ ANS 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

♦ K1 

♦ 00 

♦ 

*1 

9 

$ 

♦ <2 

♦ 23 

♦ 30000TB 

* 

9 

S 

♦ <3 

♦ F 

♦ 2*0 

* 

9 

$ 

♦ K4 

♦ TP 

♦ CON 

*TEMP#5 

9 

$ 

*K5 

♦ 00 

♦00002TB 

* 

9 

$ 

♦ K6 

♦ TP 

♦ C0N#15 

*TEMP#5 

1 

S 

♦ CON 

♦ F 

♦0*09501250♦9837637 

• 

$ 


♦ F 

♦ 0*18945061 ♦ 0455069 

9 

$ 


♦ F 

♦0.28160355*0779259 

9 

$ 


♦ F 

♦0.18260341*5044924 

9 

$ 
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*F *0.458016777*657227 » 

♦F *0.169156519*395003 , $ 

»F *0.6178762*44402644 * $ 

* F ,0.14959598,8816577 , ' $ 

* F *0.75540440*8355003 * $ 

*F *0.12462897,1255534 » $ 

*F *0.865631202*387832 » $ 

»F ,0.0951585,11682493 , $ 

»F *0.9445750*23073233 * $ 

* F *0.0622535*23938648 » $ 

»F *0.9894009*34991650 ♦ $ 

* F *0.0271524,59411754 , $ 

TEMP ,RESERV,7 ,7 , $ 

»ENDSUB * , , $ 
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RWCSQ 1, Complex, Floating Point Square Root 


Programmed by: David G. Cantor, The Ramo-Wooldridge Corporation 

Date: August 15, 1957 



where a and b are the real and imaginary parts, 
respectively, of the given complex number. 

3. Output 

First word - x 


Second word - y , 

where x and y are the real and imaginary parts, 

respectively, of the complex square root. 
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4. Space required 

Length of subroutine - 47 cells 

\ 

Temporary storage in compiled region - 1 cell 
Subsidiary routine - RWSQF 1 

5. Error codes - The alarm exit is not used. 



Given the number a + bi, and its square root x + iy. Then let 
r = max (| a | , | b | ), s = min ( | a | , | b | ) and define 

N ATi (r 

If a^>0, then x = N, y = ^ . If a<C0, then y = (sgnb)N, and 

x = — ■ where sgnb= _j The square root, x + iy, is in 

the right half-plane except when a = 0, in which case it is on 
the non-negative imaginary axis. For the particular case 
a - b 0, the routine gives x = y = 0 Zero is also given as an 
answer if a = 0 and | b| <T 2 where a and b are the real and 

imaginary parts of the given complex number. 
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♦ SUB 

♦ RWCSQ1 

♦ 47 

♦ 

s 


♦TEMPS 

♦ 1 

♦ 2 

) 

$ 


♦INOUT 

.2 

♦ 2 

9 

$ 


♦ MJ 

♦ 

♦ BODY 

• 

s 

* ALARM 

♦ALARM 

♦ 

♦ 

9 

$ 

♦ EXIT 

♦ MJ 

♦ 

♦ FILL 

9 

$ 

.ANSI 

♦ 

♦ 

♦ 

9 

$ 

♦ ANS2 

♦ 

♦ 

♦ 

9 

$ 

»ARG1 

♦ 

♦ 

♦ 

9 

$ 

»ARG2 

♦ 

♦ 

♦ 

9 

$ 

.BODY 

♦ TM 

♦ ARG1 

♦ TEMP 

9 

$ 


♦ TM 

♦ ARG2 

♦ A 

9 

$ 


♦ TJ 

♦ TEMP 

♦CASE2 

9 

$ 


♦ ZJ 

♦ NEXT 1 

♦ ZERO 

9 

i 

»NEXT 1 

♦ TP 

♦ A 

♦ ANSI 

9 

$ 


♦ FD 

♦ TEMP 

♦ ANSI 

9 

s 

.NEXT2 

♦ TP 

♦ 0 

♦ ANS2 

9 

$ 


♦ FP 

♦ ANS2 

♦ K1 

9 

s 


♦RWSQF1 

♦ 0 

♦ SQ 

9 

$ 


♦ TP 

♦ A 

♦ Q 

9 

$ 


♦ FP 

♦ ANSI 

♦ TEMP 

9 

$ 


♦ RS 

♦ 0 

♦ K2 

9 

$ 


♦ SJ 

♦ ZERO 

♦ NEXT3 

9 

$ 

.NEXT3 

♦RWSQF1 

♦ A 

♦ SO 

9 

$ 


♦ TP 

♦ ARG1 

♦ A 

9 

$ 


♦ SJ 

♦NEXT4 

♦NEXT8 

9 

$ 

»NEXT4 

♦ TP 

♦ ARG2 

♦ A 

9 

$ 


♦ SJ 

♦ NEXT 5 

♦NEXT6 

9 

$ 

»NEXT 5 

♦ TN 

♦ SQ#3 

♦ ANS2 

9 

$ 


♦ MJ 

♦ 

♦NEXT7 

9 

$ 

»NEXT6 

♦ TP 

♦ SQ#3 

♦ ANS2 

9 

$ 

»NEXT7 

♦ RA 

♦ SQ#3 

♦ K2 

9 

$ 


♦ FD 

♦ ARG2 

♦ SO# 3 

9 

$ 


♦ TM 

♦ 0 

♦ ANSI 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

»NEXT8 

♦ TP 

♦ SQ#3 

♦ ANSI 

9 

$ 


♦ RA 

♦ SQ#3 

♦ K2 

9 

$ 


♦ FD 

♦ ARG2 

♦ SQ#3 

9 

$ 


♦ TP 

♦ 0 

♦ ANS2 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

♦ CASE2 

♦ TP 

♦ TEMP 

♦ ANSI 

9 

$ 

♦ NEXT9 

♦ FD 

♦ ARG2 

♦ ARG1 

9 

$ 


♦ MJ 

♦ 

♦NEXT2 

9 

$ 

♦ ZERO- 

♦ RS 

♦ ANSI 

♦ A 

9 

$ 


♦ TP 

♦ A 

♦ ANS2 

9 

$ 


♦ MJ 

♦ 

♦ EXIT 

9 

$ 

♦ K1 

♦ F 

♦1.0000 

♦ 

9 

s 

* K2 

♦ 00 

♦lOOOOtB 

♦ 

9 

$ 


♦ENDSUB 

♦ 

♦ 

9 

$ 
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. RWMVM2, Complex, Floating Point Matrix-Vector Multiplication 

Programmed by: F. W. Blackwell, The Ramo-Wooldridge Corporation 
Date: August 20, 1957 

A. Purpose: 

This subroutine computes the product of the square matrix 
A - a I and the vector x. The computation is performed in 
complex floating point arithmetic. 

B. Usage: 

1. Specifications. Standard USE subroutine using built-in 
floating point. 

SUB , RWMVM2, 86 
TEMPS, 5 , 0 

INOUT, 4 , 0 

2. Input. 

First word: a D 

K. 

Second word: a.j 

Third word: 00, A, x 

Fourth word: 00, Y, N 

where = floating point, real component of a 

cij = floating point, imaginary component of a 

2 

A = address of the first cell in the region of 2n 
cells where the matrix A is stored, row by 
row. A may be either in core storage or on 
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the magnetic drum. It is assumed 
throughout this subroutine that each 
element is stored in two consecutive cells, 
the real part immediately preceding the 
imaginary part. 

X = address of the first cell in a region of 
4n cells, the first 2n of which contain 
the vector X, and the second 2n of which 
are successively used for temporary 
storage of the rows of the matrix. This 
region should be in core storage for 
efficient operation. 

Y = address of the first cell in the region of 2n 
cells where the resultant vector Y is to be 
stored. 

N = order of the matrix A 

3. Output. 

The vector Y which equals (A - a I) X is stored in a 
region of 2n cells beginning at location Y, as indicated 
above. 

4. Space required. 

Length of subroutine : 86 cells 

Temporary storage in compiled region: 5 cells 
Other routines used: none 

Other temporary storage: data, results, and temporary 
storage occupy an additional 2n^ + 6n cells, 2n^ of 
which (the matrix) may be stored on the magnetic drum. 
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5. Error Codes. 

The alarm exit is not used by this subroutine. 

C. Restrictions and Coding Information 

Data must in standard USE floating point representation. The pro¬ 
gram is self-contained, performing its own complex arithmetic. 
The 1103A built-in floating point is used. The subroutine does 
not destroy the input data, the matrix, or the vector. If every¬ 
thing (including the matrix) is in core storage of 4096 cells, the 
limitation on the order of the matrix A is N ^43. Since the 
matrix may be stored on the drum, N may be as large as 90. 

D. Timing 

<:. 5n\ 2 1. 5n + 1.8 milliseconds. If the matrix is on the drum, 
add 17n milliseconds to this time. 

E. Mathematical Method 

The matrix is brought in a row at a time to temporary storage and 
the complex inner product of this row and the given vector is com¬ 
puted to form an element of the resultant vector. Representative 

times obtained by trial on the 1103A for matrices having random 

4 

elements with a range of approximately 10 and stored on the drum 
are as follows: 

Order of Matrix Time in Seconds 


10 

0. 37 

1 5 

1.01 

20 

1. 37 

25 

1.74 

30 

3. 08 

50 

6. 88 

80 

19. 14 







RWMVM2 
10-17-57 
P. 4 of 5 



♦ SUB 

♦RWMVM2 

♦ 86 

♦ 

S 


♦TEMPS 

♦ 5 

♦ 0 

♦ 

$ 


♦INOUT 

♦ 4 

♦ 0 

♦ 

$ 


♦ MJ 

♦ 

♦ BODY 

♦ 

$ 


♦ALARM 

♦ 

♦ 

♦ 

$ 

♦ EXIT 

♦ MJ 

♦ 

♦ FILL 

♦ 

$ 

♦ ARG 

♦RESERV 

♦ 4 

♦ 4 

♦ 

$ 

♦ BODY 

♦ TP 

♦ C3 

♦ T3 

♦ 

$ 


♦ TV 

♦ARG#3 

♦ T3 

♦ N IN T3 STEMPORARYt 

$ 


♦ TP 

♦ T3 

♦ T4 

♦ N IN T4 %TEMPORARYT 

$ 


♦ RS 

♦ T3 

♦ C4 

♦ N-l IN T3 

$ 


♦ SP 

♦ T4 

♦ 1 

♦ 2N IN A 

$ 


♦ LO 

♦ T4 

♦ 16 

♦2N IN U ADDRESS OF T4 

$ 


♦ RA 

♦ A 

♦ARG02 

♦X#2N IN V ADDRESS OF A 

$ 


♦ TV 

♦ A 

♦ R 8 

♦ 

$ 


♦ TV 

♦ A 

♦ RIO 

♦ 

$ 


♦ TV 

♦ A 

♦ R 2 

♦ 

$ 


♦ TV 

♦ A 

♦ R 5 

♦ 

$ 


♦ RA 

♦ A 

♦ C4 

♦X#2N#1 IN V ADDRESS OF A 

$ 


♦ TV 

♦ A 

♦ R12 


J 


♦ TV 

♦ A 

♦ R1 

♦ 

$ 


♦ TV 

♦ A 

♦ R4 

♦ 

$ 


♦ LA 

♦ A 

♦ 15 

♦X#2N#1 IN U ADDRESS OF A 

$ 


♦ TU 

♦ A 

♦ R11 

♦ 

$ 


♦ RS 

♦ A 

♦ C6 

♦X#2N IN U ADDRESS OF A 

$ 


♦ TU 

♦ A 

♦ R9 

♦ 

$ 


♦ RS 

♦ A 

♦ T4 

♦X IN U ADDRESS OF A 

$ 


♦ TU 

♦ A 

♦ R 2 

♦ 

$ 


♦ TU 

♦ A 

♦ R4 

♦ 

$ 


♦ RA 

♦ A 

♦ C6 

♦X#l IN U ADDRESS OF A 

$ 


♦ TU 

♦ A 

♦ R 1 

♦ 

$ 


♦ TU 

♦ A 

♦ R5 

♦ 

$ 


♦ TU 

♦ARG#2 

♦ R8 


$ 


♦ SP 

♦ARG#3 

♦ 57 

♦Y IN V ADDRESS OF A 

$ 


♦ TV 

♦ A 

♦ R 6 

♦ 

$ 


♦ RA 

♦ A 

♦ C4 

♦Y#l IN V ADDRESS OF A 

$ 


♦ TV 

♦ A 

♦ R7 

♦ 

$ 


♦ TP 

♦ T4 

♦ T 5 

♦ 

$ 


♦ LQ 

♦ T5 

♦ 21 

♦ 

$ 


♦ TU 

♦ T4 

♦ T 5 

♦ 2N 2N IN T5 

$ 


♦ RA 

♦ R13 

♦ T4 

♦SET REPEAT INSTRUCTION 

$ 


♦ TP 

♦ T3 

♦ T2 

♦SET INDEX FOR LARGE LOOP 

$ 

♦ R13 

♦ RP3 

♦ 0 

♦ R9 

♦FILL 3—2N IN U 

$ 

♦ R8 

♦ TP 

♦ FILL 

♦ FILL 

♦FILL M IN U♦ X#2N IN V 

$ 

♦ R9 

♦ FS 

♦ FILL 

♦ ARG 

♦FILL X#2N IN U 

$ 

♦ RIO 

♦ TP 

♦ Q 

♦ FILL 

♦FILL X#2N IN V 

$ 

♦ R11 

♦ FS 

♦ FILL 

♦ARG#1 

♦FILL X#2N#1 IN U 

$ 

♦ R12 

♦ TP 

♦ Q 

♦ FILL 

♦FILL X#2N#1 IN V 

s 


♦ TP 

♦ T3 

♦ T 1 

♦SET INDEX FOR SMALL LOOP 1 

$ 


♦ TP 

♦ C3 

♦ Q 

♦CLEAR Q 

$ 

♦ R3 

♦ TN 

♦ 0 

♦ Q 

♦ 

$ 

♦ R1 

♦ FI 

♦ FILL 

♦ FILL 

♦FILL X#1 IN U^ X#2N#1 IN V 

$ 


♦ TN 

♦ 0 

♦ Q 

♦ 

$ 

♦ R2 

♦ FI 

♦ FILL 

♦ FILL 

♦FILL X IN U^ X02N IN V 

$ 
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* R A 

♦ R1 

♦ Cl 

♦INCREASE U BY 2. V BY 2 

$ 


»R A 

♦ R 2 

♦ Cl 

♦INCREASE U BY 2t V BY 2 

$ 


♦ I J • 

♦ T1 

♦ R 3 

♦TEST END OF SMALL LOOP 1 

$ 

»R6 

♦ TP 

♦ Q 

♦ FILL 

♦FILL Y IN V 

$ 


»RA 

♦ R6 

♦ C 2 

♦INCREASE V BY 2 

$ 


»RS 

♦ R 1 

♦ T 5 

♦reset u AND V 

$ 


»RS 

♦ R 2 

♦ T 5 

♦RESET U AND V 

$ 


♦ TP 

♦ T3 

♦ T1 

♦SET INDEX FOR SMALL LOOP 2 

$ 


♦ TP 

♦ C3 

♦ 0 

♦CLEAR Q 

s 

♦ R4 

♦ FI 

♦ FILL 

♦ FILL 

♦FILL X IN Ut X*2N#1 IN V 

$ 

♦ R 5 

♦ FI 

♦ FILL 

♦ FILL 

♦FILL X#1 IN U» X#2N IN V 

$ 


♦ RA 

♦ R4 

♦ Cl 

♦INCREASE U BY 2» V BY 2 

$ 


♦ RA 

♦ R5 

♦ Cl 

♦ INCREASE U BY 2♦ V BY 2 

$ 


♦ I J 

♦ T1 

♦ R4 

♦TEST END OF SMALL LOOP 2 

$ 

* R7 

♦ TP 

♦ 0 

♦ FILL 

♦FILL Y#1 IN V 

$ 


» RA 

♦ R7 

♦ C2 

♦INCREASE V BY 2 

$ 


♦ RS 

♦ R4 

♦ T 5 

♦RESET U AND V 

$ 


♦ RS 

♦ R 5 

♦ T 5 

♦RESET U AND V 

$ 


♦ RA 

♦ R 8 

»T4 

♦INCREASE U BY 2N 

$ 


♦ RA 

♦ R 9 

♦ C5 

♦INCREASE U BY 2 

$ 


♦ RA 

♦ RIO 

♦ C2 

♦INCREASE V BY 2 

$ 


♦ RA 

♦ R11 

♦ C 5 

♦INCREASE U BY 2 

$ 


♦ RA 

♦ R 12 

♦ C2 

♦INCREASE V BY 2 

$ 


♦ I J 

♦ T 2 

♦ R 13 

♦TEST END OF LARGE LOOP 

$ 


♦ RS 

♦ R 1 3 

♦ T 4 

♦RESET REPEAT INSTRUCTION 

$ 


♦ MJ 

♦ 

♦ EXIT 

♦ 

$ 

.Cl 

♦ 0 

♦ 2 

♦ 2 

♦constants 

$ 

>C2 

♦ 0 

♦ 0 

♦ 2 

♦ 

$ 

»C3 

♦ 0 

♦ 0 

♦ 0 

♦ 

$ 

»C4 

♦ 0 

♦ 0 

♦ 1 

♦ 

$ 

*C5 

♦ 0 

♦ 2 

♦ 0 

♦ 

$ 

♦ C6 

♦ 0 

♦ 1 

♦ 0 

♦ 

$ 


♦ENDSUB 

♦ 

♦ 


s 
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RWDET5, Complex, Floating Point Determinant 


Evaluation for Tri-diagonal Matrices 


Programmed by: Werner L. Frank, The Ramo-Wooldridge Corporation 
Date: August 15, 1957 


Purpose: 


This subroutine evaluates the determinant of the matrix A 


-^ 1 . 


where A is a tri-diagonal matrix of order N. A tri-diagonal 

matrix, or Jacobi matrix is defined to be one for which a.. = 0 

U 


for | i - j ^>1. For the special case 


X= 0 


one obtains the 


determinant of A. The computation is performed in complex 
floating point arithmetic. 


Usage: 


1. Specifications. Standard USE subroutine using built-in 
floating point. 


SUB, RWDET 5, 59, 


TEMPS, 7 
INOUT, 3 


, 0 , 

, 2 , 


2. Input 


First word 


Second word 


Third word 


00, MATLOC, N 


where = floating point, real component of A 

A^ = floating point, imaginary component of A. 
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N = order of the Matrix A 

MATLOC = address of the first cell of a region of 4N-2 

cells where the matrix A is stored. Only the 

elements a.^ of A, | i - j | <0 are stored. They 

are arranged in the order of a.. (i = 1. . . N) in the 

first 2N cells and the products a. . , . • a. ,. 

^ i, l+l l+l, l 

(i = 1. . . N-l) in the next 2(N-1) cells. 


3. 


Output 

First word 
Second word 


- floating point, 

- floating point. 


real component of 


-A 


imaginary component of 


A 


-Ai I 


4. Space required 

Length of subroutine - 59 cells 

Temporary storage in compiled region - 7 cells 
Other temporary storage - (4N-2) cells 

5. Error codes - Alarm exit is not used 

C. Restrictions and Coding Information: 

S 

Data must be in standard USE complex floating point representation. 
The program is self contained performing its own complex arith¬ 
metic. The 1103A built-in floating point package is used. The 
subroutine does not destroy the input data. For core storage of 
4096 cells, the limitations on the order of the matrix A is N^IOOO. 

D. T inning: 

(6 N + 1) milliseconds where N is the order of the 


matrix 
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where P , = 0 and P =1 
-1 o 

The routine assumes that the products b. . c. have been formed 

r ii 

prior to entry and are stored in order immediately following the 


a 

i 
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♦ 

♦ SUB 

5 RWDET5 

.59 

. .TEMPS.7 *0, 

. 

$ 

.INOUT 

y3 

.2 

.ENTRY 

,MJ 

9 

.STAR 

.ALARM 

.ALARM 

9 

9 

»EXIT .MJ, , »$ 

.RES 

.RESERV 

>2 

.2 

.PAR 

.RESERV 

.3 

.3 

.star 

»TU 

.PAR #2 

♦ NEX 

♦ 

.Tl) 

»PAR #2 

* NEX 1 

. 

.SP 

.PAR #2 

.16 

..ST.TWO.A.S 

♦ 

.AT 

»PAR #2 

»A 

* 

.TU 

.A 

.NEX 2 


.TU 

.A 

»NEX3 

* 

.TU 

♦ A 

* NEX 4 

> 

.TU 

.A 

»NEX5 

% 

»RA 

.NEX 1 

.ONEB 

y 

♦ RA 

. NEX 2 

.ONEB 

y 

»RA 

»N E X 4 

.ONEB 

y * RP 1 * 7»NEX- 

3.$ 

.TP 

♦ 7ER0 

♦ P 

♦ 

.TP 

.ONE 

.P#2 

$ 

.TV 

♦PAR#2 

* P#6 

• 

»MJ 

9 

♦ END 

^ * NE X 

»FS 

.FILL 

.PAR 

♦ 

♦ TP 

.0 

♦ P#4 

* NEX 1 

.FS 

.FILL 

♦ PAR#1 

y 

, TP 

,0 

*P#5 

* NEX 2 

.FM 

.FILL 

»P#1 

* 

,TN 

.0 

.Q 

9 NEX 3 

.FI 

.fell 

»P 


. TN 

.0 

.RES 

5 

.TN 

»P#5 

.0 

» 

, FP 

.P*3 

.RES 


.FI 

.P#4 

.P#2 

* 

.TP 

»Q 

.RES 

• NEX 4 

,FM 

.FILL 

,P 

• NEX 5 

.FI 

♦ FILL 

tPffl 

9 

.TN 

.0 

.0 

y 

, F I 

♦ P04 

.P#3 

y 

.FI 

♦ P#5 

♦ P#2 

9 

♦ TP 

.0 

.REStfl 

9 

* TP 

»P ft 2 

,P 

9 

.TP 

»P*3 

♦ P#l 

9 

. TP 

.RES 

.P#2 

9 

♦ TP 

»RES#1 

»P#3 

9 

. R A 

.NEX 

.TWO 

9 

.RA 

.NEX 1 

♦ TWO 


. R A 

. NEX 2 

.TWO 

• 

.RA 

. N EX 3 

.TWO 

9 

♦ R A 

» NEX4 

.TWO 

9 

.RA 

.NEX 5 

•.TWO 

y END 

, I J 

♦ P#6 

.NEX 


* • $ 

$ 

$ 

$ 

$ 

S 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

S 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

s 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 
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* 

»MJ » 

• EXIT 

.ZERO 

.00 , 

• 

»ONE 

♦ F ,1 

• 

» TWO 

. .2 

» 

♦ ONES 

. » 1 

• 

* 

♦ ENDSIJB » 

> 


$ 


$ 


kft fcft {fit 
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RWCDV1, Complex Floating Point Division 

Programmed by: David G. Cantor, The Ramo-Wooldridge Corporation 
Date: September 1, 1957 

A. Purpose : 

Given the complex floating point numbers a + bland c + di this 
subroutine calculates 
a+bi 

p + qi = - .j -F 

r c+di 

B. Usage : 

1. Specifications. Standard USE subroutine using built-in 
floating point. 

SUB, RWCDV1, 41 

TEMPS, 1 , 0 

INOUT, 4 , 2 

2. Input 

First word - a 

Second word - b 

Third word - c 

Fourth word - d 

a and b are the real and imaginary parts of 
the numerator, respectively; c and d are 
the real and imaginary parts of the denominator, 
respectively. 
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3. Output 

First word - p 
Second word - q 

p and q are the real and imaginary parts of the denominator, 
respectively. 

4. Space required 

Length of subroutine - 41 

Temporary storage in compiled region - 1 
Other routines used - none 
Other temporary storage - none 

5. Error codes - Alarm exit is not used. 

C. Restrictions and Coding Information : 

Data must be in standard USE complex floating point representa¬ 
tion. Built-in 1103A floating point arithmetic is used. If the 

1 2 7 

real or imaginary part of the answer is larger than 2 , a 

division fault or characteristic overflow fault will occur. 

D. Timing: 

4 milliseconds 

E. Mathematical Method: 

If | c | ^>)d| then p+q i = a ^ ^ c ^ _ + i ^ a ( c ) 

c(l+(f) Z ) c(l+(i) 2 ) 

If | c | ^|d | then p -t-qi = a W _ + i ^d^ a _ 

d(l+(^-) 2 ) d(l+(^-) 2 ) 
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♦SUE 

♦RWCDV1 

♦ 41 



♦TEMPS 

♦ 1 

♦ 0 



♦ INOUT 

♦ A 

♦ 2 



♦ MJ 

♦ 

♦ BODY 


♦ALARM 

♦alarm 

♦ 

♦ 


♦ EXIT 

♦ MJ 

♦ 

♦ FILL 


♦ ANS 

♦reserv 

♦ 2 

♦ 2 


♦ ARG 

♦ reserv 

♦ A 

♦ 4 


♦BODY 

,TM 

♦ A R G # 2 

♦ A 



♦ TM 

♦ A R G # 3 

♦ TEMP 



♦ TJ 

♦ TEMP 

♦CASE2 



♦ FD 

♦ ARG#3 

♦ ARG#2 



♦ T D 

♦ 0 

♦ TEMP 



♦ EP 

♦ TEMP 

♦ K 



♦ ~M 

♦ 0 

♦ARG#2 


♦ NEXT 1 

♦ TP 

♦ 0 

♦ANS#1 



♦ TP 

♦ TEMP 

♦ 0 



♦ FP 

♦ARG#1 

♦ ARG 



♦ FD 

.0 

♦ ANS 01 



♦ TP 

♦ 0 

♦ ANS 



♦ TN 

♦ TEMP 

♦ 0 



♦ FP 

♦ ARG 

♦ARG#1 



♦ FD 

♦ 0 

. ANS# 1 



♦ TP 

♦ 0 

♦ANS#1 



♦ MJ 

♦ 

♦ EXIT 


* CA5E2 

♦ FD 

♦ ARG#? 

♦ ARG#3 



♦ TP 

♦ 0 

♦ TEMP 



♦ FP 

♦ TEMP 

♦ K 



♦ FM 

♦ 0 

♦ ARG#3 


♦ NEX T 2 

♦ TP 

♦ 0 

♦ ANS #1 



♦ TP 

♦ ARG 

♦ Q 



♦ FP 

♦ TEMP 

♦ ARG#1 



♦ FD 

.0 

♦ ANS#1 



♦ TP 

♦ 0 

♦ ANS 



♦ TN 

♦ ARG#1 

♦ 0 



♦ FP 

♦ TEMP 

♦ ARG 



♦ FD 

♦ 0 

♦ANS#1 



♦ TN 

♦ 0 

♦ANS#1 



♦ MJ 

♦ 

♦ EXIT 


* K 

♦ F 

♦1.0000 

♦000000 



♦ENDSUB 

♦ 

♦ 
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RWDET4, Complex, Floating Point Determinant Evaluation 


for Nearly Triangular Matrices 


Programmed by: Werner L, Frank, The Ramo-Wooldridge Corporation 


Date: August 1, 1957 


A. Purpose: 


This subroutine evaluates the determinant of the matrix A -A I 
where A is nearly triangular, square matrix of order N. By a 
nearly triangular matrix is meant a matrix for which a., = 0 if 


i - j ^>1, For the special case = 


0 one obtains the determinant 


of A. The computation is performed in complex floating point 
arithmetic. 


B. Usage: 


1, Specifications Standard USE subroutine using built-in floating 


point. 


SUB, RWDET4, 199, 


TEMPS, 

INOUT, 


2. Input 


First word 


Second word 


Third word 


00, MATLOC, N 


where A. 


Fourth word 


00, TEMLOC, 00000 


floating point, real component of 
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A. = floating point, imaginary component of A. 

N = order of tbe matrix A 

MATLOC = address of the first cell in the region where the 

matrix A is stored, row by row. Zero elements, 

a. for i - j 1 are not stored. This region of 

2 

N + 3N-2 cells should be in core storage for 
efficient operation. 

TEMLOC = the address of the first cell in a region of 

temporary storage of length 2N. This region 
should be in core storage for efficient opera¬ 
tion. 

3. Output 

First word - floating point, real component of I A -\l | 
Second word - floating point, imaginary component of 
| A • Al | 

4. Space required 

Length of subroutine - 199 cells 

Temporary storage in compiled region - 1 cell 

Other temporary storage - (N^ + 5N-2) cells 

5. Error codes - Alarm exit not used 
Restrictions and Coding Information; 

Data must be in standard USE complex floating point representation. 
The program is self contained performing its own complex arith¬ 
metic, The 1103A built-in floating point package is used. The 
subroutine does not destroy the input data nor the matrix A. For 
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core storage of 4096 cells, the limitation on the order of the 
matrix A i s N 6 0. 

D Timing 

(1. 5n^ + 6n - 4; milliseconds 
E. Mathem atical Method 

Elementary row operations are performed on the matrix A -Al 
reducing it to an upper triangular matrix A. Before eliminating, 
the magnitude of leading elements of two rows which are to be 
linearly combined are compared and the element of largest modulus 
becomes the pivotal point. The product of the diagonal elements 
of A is the value of 




-A; 
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* »SUB ♦RWOET4 

♦ 198 ♦ 5 





♦ ,TEMPS»1 ,0» 

♦ 

$ 

♦INOUT 

♦ 4 

♦ 2 

♦ 

$ 

♦ ENT 

♦ MJ 

♦ 

♦ S 

♦ENTRANCE 

$ 

♦ALARM 

♦ ALARM 

♦ 

♦ 

♦alarm EXIT 

$ 

♦ EXIT 

♦ MJ 

♦ 

♦ 

♦NORMAL EXIT 

$ 

♦ R1 

♦ 

♦ 

♦ 

♦RESULT 

$ 

♦ R2 

♦ 

♦ 

♦ 

♦CELLS 

$ 

♦ PARI 

♦ 

♦ 

« 

♦LAMBDA 

$ 

♦ PAR? 

♦ 

♦ 

♦ 

♦ 

$ 

♦ PAR 3 

♦ 

♦ 

♦ 

♦MATRIX LOC ♦ N 

$ 

♦ PAR4 

♦ 

♦ 

♦ 

♦TEM LOC 

$ 

♦ S 

♦ TU 

♦ PAR 4 

♦ P 3 

♦ 

$ 

♦ 

♦ TU 

♦ PAR 4 

♦ P 14 

♦ 

$ 

♦ 

♦ TU 

♦ p A R 4 

♦ P 19 
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A. Identification 

1. Title: High Speed Printer Edit Routine, WF0001 

2 . Authors: R.; Graham, W. Bauer 
Date:, 1 July 1957 

3. Installation:, Wright Field 
3. Purpose 

This routine edits alphanumeric information from core or drum memory and 
prepares a magnetic tape on any designated servo suitable for listing on the off¬ 
line hign speed printer. 

C. Method 

Any of a number of conversion or translation routines may be used to produce 
the alphanumeric characters for tne Edit Routine from binary data. 

This routine requires that one argument word be transferred into it by tne 
calling sequence and tnat a parameter list be available. One entry into the idit 
Routine is sufficient to produce any number of lines (blockettes) N, less than 
1000, of identical format. Eacn colunm in the group of N lines requires two 
descriptive words in the parameter list. The edited information is recorded on 
tape in blocks of 720 hexabit characters, each block thus containing s,ix block¬ 
ettes of 120 characters. 

D. Usage 


1., Calling 

Loc 

Sequence 

Qe 

U-addr 

V-addr 

r-1 

TP 

Arg 

Edit + 3 

r 

RJ 

Edit + 2 

Edit 

r+1 

Normal Return 



2. Control 

Data 



a. Argument 




The argument word which is transferred into tne Edit Routine by the 
calling sequence is made up as follows: 

Loc Op U-addr V-addr 

Arg XX XX XXX XXXXX 

F E T N P 

P is the address of the first word of the parameter list. 

N (decimal) is the number of lines of identical format to be produced. 

(1 < N < 999) 





T (decimal) designates the servo unit on which output is to be recorded. 

(1 < T < 10 ) 

F and E (octal) are printer control digits. 

If F = 1,2,3, or 4, the corresponding Fast Feed I, II, III, or IV is 
placed in tne first of the N blockettes. 

If EQg = 1, a multiline symbol is placed in each of tne N blockettes. 

If E 31 = 1 , a printer breakpoint symbol is placed in the first of tne 
N blockettes. 

If E^q = l, a printer stop symbol is placed in the last of the N 

blockettes. 

When the argument specifies printer control symbols, the total number of 
cnaracters available for blockette construction is 120 minus the number of symbols 
used. 


b. Parameters 

The parameter list, whicn is stored beginning at address P, contains 
a pair of parameter words for each column and is followed by a pair of control 
words Pj_ ana Fo to signal the ena of the list. Pi is always zero. If Fg is zero, 
a partially fitlea block is not written at the ena of N blockettes which permits 
an accumulation of blockettes; nowever, a full block (six blockettes) is always 
written on magnetic tape. If Pg is not zero, a partially filled block is written 
at the end of N blockettes with^each unused blockette translated as a blank line 
of output. 


Eacn pair of words in the parameter list is made up as follows: 


Loc 


U-addr 

V-addr 

Param 

XX 

XXXXX 

XXX XX 


D 

M 

W 3 

Param + 1 

— 


XXXXX 

n 


W (decimal) is the number of cnaracters allotted to tne column. 

(1 < W < 120) 

S (decimal) is the number of spaces to precede the column. 

(0 < S < 99) 

M is the address of the first word of data to appear in this column. 

D (octal) is the increment to be added to M to obtain the addresses of 
data for succeeding lines of this column. The original parameter list is never 
altered. 
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C is the first address occupied by tne conversion routine which is 
required for data in tnis column. 

The remainder of tne second word of tne pair may contain additional 
information required by tne particular conversion routine, such as scaling, or 
the first address of additional information requirea. The precise form of this 
word will be specified by the particular conversion routine. 

The Edit Routine generates a calling sequence which transfers this pair 
of parameter words into the particular conversion routine with the address C 
replaced by the address (K) at wnicn the conversion routine is to store W results. 

The results from the conversion routine will be a series of six-bit excess 
three characters. On exit from the conversion routine ^35 will be zero if these 
characters are packed six to a word. Q 33 will be one if these characters are 
stored one to a word in the rightmost six bits, with the leftmost thirty bits 
being zero. 


3. Space Required 
v 327 memory cells 


4. Error Codes 
(A^) = Code 

If code = 1 , Servo is greater than 10, or equal to zero. 

= 2, N is zero. 

= 3, P is zero. 

= 4, C is zero. 

= 5, the Blockette is to be greater than 120 characters. 


(Ag) = Argument 

(Q) = WFOOOl in Flex Code. 


5. .Format Cenerated 

The format is controlled entirely by the argument and parameter list. 
E. Restrictions 


1. A change in servo designation causes a partially filled block (if it 
exists) to be recorded on the old servo. 


2. If Po is zero and N is not an even multiple of 6 , a "clean-up" pass must 
be executed to .write the partially filled block. 

3. Other Program Required 

One or more subsidiary routines are necessary to process data for editing. 
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F, 


Coding Information 


1 . Constants and their locations 

a. Alphanumeric 
IK through 1K5 

b. Numeric 

2K througn 2K27 

c. Internal temporary storage 
3K through 3K4 

2. Erasable output storage 
P tnrough P126 
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USE Letter No: PC-4 


December 11, 1957 


To: USE Policy Committee, Publications Committee, Installation Heads. 


Enclosed herewith is the coding only for USE routines WF 0001, WF 0002, 
WF0003, WF0004 and WF0005. The original routines, previously distributed, 
were somewhat illegible. WF was kind enough to provide us with another master. 

Please note that lino Cl8(+2) in WF 0004 was incomplete in the original 
copy which was distributed. 


/. I 

/ uA'dl/ * 

Dirk de Vries 
Executive Secretary, USE 
Remington Rand Univac, 
Univac Park, 

St. Paul 16, 

MINNESOTA. 


DdV :diw 
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WF0001 



,SUB 

,WF0001 

,327 


,TEMPS 

,127 

,0 


,IN OUT 

,1 

,0 

B 

,MJO 

,0 

,c 

Bl 

,ALARM 


, o 

B2 

,MJO 

,0 

,FILL 

PARAM 

» 

, 


B3 

,RESERV 

,120 

,120 

C 

,TP 

,1K 

,F 


,TP 

,1K1 

,F3 


,TP 

,1K2 

,F14 


,TP 

,2K 

,P+126 


,TV 

,C3 

,3K 


,RP1 

,120 

,C1 


,TP 

,2K1 

,P 

Cl 

,55 

,PARAM 

,Q+3 


,QT 

,2K7 

,P+120 


,ZJ 

,C2 

,C4 

C2 

,RA 

, P+120 

,1K6 


,LA 

,A 

,15 


,TU 

,A 

,C3 

C3 

,TP 

,FHL 

,P 


,RA 

,3K 

,2K1 

C4 

,QJ 

,C5 

,C6 

C5 

,RS 

,F 

,2KL 


,TV 

,3K 

,F1 


,RA 

,3K 

,2K1 

C6 

,QJ 

,C7 

,C9 

C7 

,TV 

,3K 

,C8 

CB 

,TP 

,2K14 

,FILL 


,RA 

,3K 

,2K1 

C9 

,QJ 

,C10 

,C11 

CIO 

,RS 

,F3 

,2K1 


,TV 

,3K 

,F4 


,RA 

,3K 

,2K1 

Cll 

,lq 

,Q 

,9 


,QT 

,2Kl6 

,P+120 


,ZJ 

,C14 

,C12 

C12 

,sp 

,2K3 

,36 

C13 

,SA 

,PARAM 

,0 


,TP 

,2K27 

,Q 


,MJO 

,0 

,B1 

C14 

,LQ 

,Q 

,6 


,qt 

,2K17 

, A 


,DV 

,2K18 

,P+121 


,ZJ 

,C16 

,C15 

C15 

,SP 

,2K2 

,36 


,MJO 

,0 

,C13 

Cl6 

,TP 

,A 

,P+122 


,TP 

,2KB 

,A 


,TJ 

,P+121 

,C18 

C17 

,TP 

,P+121 

,A 


,ENTRY 
,EXIT ALARM 
,EXIT NORMAL 

’bin 

,PRESETS/SWITCH 1 
,SWITCH 2 
,SWITCH 3 

,SET LOOP COUNT TO ZERO 
,SET STORE DATA LOCATION 

\STORE SPACES IN BLOCKETTE 
,SHIFT ARGUMENT 

*TEST FOR FAST FEED SYMBOL 
,YES 


,SET FF SYMBOL 

*TEST FOR MULTILINE SYMBOL 
,YES SET SWITCH 1 
,SET ML LOCATION 

’TEST FOR BREAKPOINT SYMBOL 
,YES 

,SET BP SYMBOL 

’TEST FOR PRINTER STOP SYMBOL 
,YES SET SWITCH 2 
,SET PS LOCATION 

’SHIFT ARGUMENT 
,EXTRACT P 
,DOES P EQUAL ZERO 
,YES LOAD 3 CODE AND 
,LOAD ARGUMENT INTO A 

’,GO TO ALARM EXIT TO PRINT A 
,SHIFT ARGUMENT 

’store SERVO NUMBER 

,DOES NUMBER OF LINES EQUAL ZERO 

,YES LOAD 2 CODE 

’store N 

’is SERVO GREATER THAN 10 
,N0 
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WFOOOl 



,ZJ 

,C19 

,C18 

C18 

,SP 

,21a 

,36 


,MJO 

,o 

,C13 

C19 

,EJ 

,3K1 

,E 

C20 

,TP 

,3K1 

,A 


,ZJ 

,D0 

,D2 

DO 

,TP 

,3K2 

,A 


,ZJ 

,D1 

,D3 

D1 

,EF 

,0 

,3K3 


,RP1 

,120 

,D2 


,EW1 

,0 

,B3 

D2 

,HPI 

,120 

,D3 


,TP 

,2K20 

,B3 

D3 

,TU 

,1K5 

,F9 


,TV 

,1K5 

,F10 


,TP 

,2K 

,3K2 

D4 

,RJ 

,D4 

,D5 

D5 

,TP 

,P+121 

,3K1 


,54 

,P+121 

,A+12 


,AT 

,2K19, 

,3K3 

E 

,TP 

,3K 

,P+121 


,IJ 

,P+122 

,E1 


,MJO 

,0 

,B2 

El 

,TU 

,P+120 

,E3 

E2 

,RP3 

,2 

,E4 

E3 

,TP 

,FILL 

,P+123 

EA 

,RA 

,E3 

,2K23 


,TP 

,P+123 

,A 


,ZJ 

,E5 

,F 

E5 

,TP 

,2K17 

,Q 


,QT 

,P+124 

,A 


,ZJ 

,E7 

,E6 

E6 

,SP 

,2K4 

,36 


,MJO 

,0 

,C13 ’ 

E7 

,TV 

,A 

,E12 


,LA 

,A 

,15 


,TU 

,A 

,E12 


,RA 

,E12 

,2K23 


,TV 

,E12 

,E11 


,RA 

,E11 

,2K3 


,QT 

,P+123 

,A 


,DV 

% 2K26 

,P+125 


,RA 

,A 

,P+121 


,TV 

,A 

,P+124 


,RA 

,A 

,P+125 


»TJ 

,1K4 

,E9 

E8 

»sp . 

,2K5 

,36 


,MJO 

,o 

,C13 

E9 

,TV 

,A 

,P+121 


,IJ 

»A 

,E10 

ElO 

,TV 

,A 

,E22 


,55 

,P+123 

,Q+6 


,QT 

,2K21 

,A 


,DOES SERVO EQUAL ZERO 
,SERVO IN ERROR/LOAD 1 CODE 

*DOES NEW SERVO EQUAL OLD 
,NO 

,TEST FOR INITIAL SETUP 
,NO 

,IS THERE ANY DATA IN BLOCK 

, YES 

, WRITE 

, BLOCK AND 

,FILL BLOCK 

,WITH CONDENSED SPACES 


SET BLOCKETTE COUNT TO ZERO 

STORE NEW SERVO NUMBER 

PREPARE NEW MT COMMAND 
SET STORE DATA LOCATION 
DOES N EQUAL ZERO 
YES GO TO NORMAL EXIT 
SET E3 

OBTAIN PAIR OF PARAMETER WORDS 


,DOES PARAMETER EQUAL ZERO 
,NO 

,EXTRACT C 
,DOES C EQUAL ZERO 
,YES LOAD 4 CODE 

’set C IN RJ 

’MODIFY RJ ORDER 
,FOR SUBRTN ENTRY 
,SET UP RP TO 
,STORE PARAMETERS 
,EXTRACT WS 
,STORE W 
,MODIFY DATA 
,STORAGE LOCATION BY S 
,ADD W 

,IS BLOCKETTE TOO LARGE 
,YES LOAD 5 CODE 

’STORE NEXT DATA 
,STORAGE LOCATION 
,SETUP ORDER TO UNPACK 

!EXTRACT D 
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WF0001 



,MP 

,A 

,P+126 


,LA 

,A 

,15 


,AT 

,P+123 

,P+123 


,RP3 

,2 

,E12 

Ell 

,TP 

,P+123 

,FILL 

E12 

,RJ 

,FILL 

,FILL 


,QJ 

,E2 

,E13 

E13 

,TV 

,2K 

,E16 


,TP 

,2K 

,3K4 


,RS 

,P+124 

,2K1 


,TP 

,P+125 

, A 


>DV 

,2K6 

,P+123 


,ZJ 

,E14 

,E15 

E14 

,TP 

,A 

,3K4 


,MP 

,A 

,2K6 


,TV 

,A 

,El6 


,RA 

,P+123 

,2K1 

E15 

,RA 

,p+124 ' 

,P+123 


,LA 

,A 

,15 


,TU 

,A 

,E16 

E16 

,lq 

,FILL 

,FILL 


,TU 

,E16 

,E18 


,TP 

,3K4 

,A 


,ZJ 

,E19 

,E17 

E17 

,TP 

,2K6 

,3K4 

E18 

,SP 

,FILL 

,0 


,TP 

,A 

,Q 

E19 

,RS 

,E18 

,2K24 

E20 

,IJ 

,3K4 

,E21 


,MJO 

,0 

,E17 

E21 

,IJ 

,P+125 

,E22 


,MJO 

,0 

,E2 

E22 

,QT 

,2K21 

,FILL 


,RS 

,E22 

,2K1 


,141 

,Q 

,30 


,MJO 

,o 

,E20 

.F 

,MJO 

,0 

,F2 

.FI 

,TP 

,2K13 

,FILL 

F2 

,RA 

,3K2 

,2K1 


,RA 

,P+126 

,2K1 


,TP 

,P+122 

,A 


,ZJ 

»F7 

,F3 

F3 

,MJO 

,0 

,F5 

F4 

,TP 

,2K15 

,FILL 

F5 

,TP 

,P+124 

,A 


,ZJ 

»F6 

,F7 

F6 

,RS 

,F14 

,2K1 

F7 

,TU 

,1K3 

,F10 


,TP 

,2K21 

,Q 


,TP 

,2K25 

,P+123 

F8 

,TP 

,2K5 

,P+124 

F9 

,SP 

,FILL 

,6 

FIO 

,QA 

,FILL 

,FILL 


,RA 

,F10 

,2K24 


,IJ 

,P+124 

,F9 


,RA 

,F9 

,2K24 


,LOOP COUNT TIMES D 
MODIFY M 

,STORE PARAMETER PAIR 
GO TO SUBROUTINE 
,IS DATA PACKED 
,YES 

, INDEX TO ZERO 
W TO A 

NUMBER OF LOCATIONS 
IS THERE A REMAINDER 
YES SET.INDEX 

SET LQ FOR SPECIAL SHIFT 
INCREASE LOCATION NO 
DETERMINE LAST LOCATION 

SET LQ 
SHIFT 


.TEST FOR REMAINDER 
,NO SET 6 INDEX 

WORD TO Q 


INDEX ON W 

EXTRACT TWO CHARACTERS 


.SWITCH 1 
SET ML SYMBOL 
INCREASE BLOCKETTE COUNT 
INCREASE LOOP COUNT 

DOES N EQUAL ZERO 
,YES SWITCH 2 
.SET PS SYMBOL 

DOES FINAL PARAMETER EQUAL ZERO 
NO SET SWITCH 3 
CONDENSE BLOCKETTE 
.AND STORE IN BLOCK 
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WF0001 



f 

9 


9 

9 


9 

9 


9 

9 

9 




9 

9 


9 


9 

9 

9 

9 


9 



,RA 

,F10 

,2K1 

9 

Fll 

,IJ 

,P+123 

,F8 

9 

F12 

,TP 

,3K2 

,A 

9 


,EJ 

,2K6 

,F13 

,IS BLOCK FULL 


,M«JO 

,0 

,F14 

,N0 

F13 

,RJ 

,D4 

,D1 

,YES WRITE BLOCK 

F14 

,MJO 

»o 

,F16 

,SWITCH 3 

F15 

,RJ 

,D4 

,D0 

,WRITE BLOCK 

F16 

,KP1 

,120 

,E 

,FILL BLOCKETTE 


,TP 

,2K1 

,P 

,WITH SPACES 

IK 

,M<JO 

»o 

,F2 

y 

1KX 

,MJO 

,0 

,F5 

y 

1K2 

,MJO 

>0 

,F16 

y 

1K3 

f 

,P 

9 

y 

1K4 

y 

y 

,P+121 

y 

1K5 

, 

,B3 

,B3 

y 

1K6 

y 

» 

,2K8 

y 

2K 

»B 

> 

,0 

,ZERO 

2K1 

»B 

y 

,1 

,ONE 

2K2 

,B 

y 

,2 

,TWO 

2K3 

»B 

y 

,3 

,THREE 

2K4 

»B 

y 

,4 

,FOUR 

2K5 

»B 

y 

,5 

,FIVE 

2K6 

>B 

y 

,6 

,SIX 

2K7 

»B 

y 

,7 

,SEVEN 

2K8 

,B 

y 

,12 

,INDEX 

2K9 

»B 

y 

,37 

,FAST FEED - FF 1 

2K10 

,B 

y 

,42 

,FF 2 

2101 

>B 

y 

,57 

,FF 3 

2K12 

,B 

y 

,76 

,FF 4 

2K13 

,B 

y 

,20 

,MULTILINE - ML 

2K14 

,B 

y 

,61 

,BREAKPOINT BP 

2K15 

,B 

y 

,60 

,PRINTER STOP 

2K16 

»B 

>77777 

,00000 

,MASK U 

2K17 

>B 

9 

,77777 

,MASK V 

2K18 

»B 

9 

,01750 

,DIVISOR 

2K19 

,B02 

,00746 

,00000 

,OFF LINE VffilTE BLOCK 

2K20 

,B01 

,01010 

,10101 

,CONDENSED SPACES 

2K21 

,B 

9 

,77 

,6 BIT MASK 

2K22, 

,B 

9 

,777 

,9 BIT MASK 

2K23 

,B 

9 

2 ,00000 

,ADVANCE U 

2K2J+ 

,B 

9 

1 ,00000 

,ADVANCE U 

2K25 


9 

,23 

,INDEX 

2K26 

,B 

9 

,00144 

,DIVISOR 

2K27 

,B31 

,26373 

,73752 

, 

3K 

,B 

9 

,0 

,STORE DATA LOCATION 

3KL 

,B 

9 

,0 

,SERVO NUMBER 

3K2 

,B 

9 

,0 

,BLCCKETTE COUNT 

3K3 

>B 

9 

,0 

,TAPE COMMAND 

3K4 

9 

9 

,0 

,INDEX 


,ENDSUB 

9 

y 

y 


8 
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,SUB 

,WF0002 

,61 

9 


,TEMPS 

,15 

,127 

9 


,IN OUT 

,2 

,0 

y 

B 

,MJO 

,0 

,c 

,ENTRY 

B1 

,ALARM 

y 

, 

,EXIT ALARM 

B2 

,MJO 

,o 

,FILL 

,EXIT NORMAL 

B3 

»B 

y 

,0 

, 

B4 

»B 

y 

,0 

, 

C 

,TP 

,K10 

,Q 

, 


,QT 

,B3 

,A 

,EXTRACT WS 


,DV 

,K9 

, A 

,W TO A 


,TJ 

,KS 

,C2 

,IS W TOO LARGE 

Cl 

,sp 

,B3 

,36 

,YES 


,SA 

,B4 

,0 

,LOAD PARAMETERS 


,TP 

,K12 

,Q 

,AND CODE 


,MJO 

,0 

,B1 

,G0 TO ALARM EXIT 

C2 

,LA 

,A 

,15 

, 


,AT 

,K 

,C12 

,SET RP 


,TV 

,B4 

,013 

, 


,RP1 

,14 

,03 

, 


,TN 

,K2 

,P+1 

,STORE - 2 

C3 

,TV 

,C3-1 

,09 

,SET STORE DIGIT LOC 


,lq 

,B4 

,Q+21 

, 


,QT 

,K3 

,A 

,EXTRACT CODE 


,EJ 

,K1 

,C14 

,ADDRESS 

C4 

,EJ 

,K2 

,015 

,SPECIAL FORMAT 

C5 

,TP 

,K11 

,P 

,SET 11 INDEX 

C6 

,TU 

,B3 

,07 

, 

C7 

,SP 

,FILL 

,0 

,OBTAIN WORD 


,TP 

,A 

,Q 

,WORD TO Q 

C8 

,lq 

,Q 

,3 
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IDENTIFICATION 


AP3D - SPECTRAL DENSITY 
Harry Shaw - October 15, 1957 
Applied Physics Laboratory 



P. 


PURPOSE 

Given M + 1 lags (see APAC - AUTOCORRELATION) RH, H = 0(1)M, 
compute M + 1 values UJ, J = 0(1)M, of what is essentially the 
spectral density function. 


3. METHOD 

&, The method of Tukey (see 'The Sampling Theory of Power Spectra 
Estimates, Symposium on Applications of Autocorrelation Analysis 
to Physical Problems, Woods Hole, Mass., 194-9) is used to compute 


UJ = fl?(J72MAT) 

2MA-G 

where is the spectral density function 

cr* . 

(QU' ) - 4- f R(t) cos 

Since 



E UJ ^ RO 
J=0 

furnishes a convenient check, the sum of the UJ is also computed. 

b. Inputs RH are integers scaled zero and can be computed by APAC (if 

29 

obtained in some other way care should be taken that |RH| <2 ). 

Outputs are integers scaled zero. 

4. USAGE 


Calling Sequence 

LOC 

OP 
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RJ 

t + 2 
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r + 1 

Normal 

Return 
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b. Control and Results 

Enter with the code word 00 OMMMM WWWWW in the accumulator, 
and lags RH in locations W + H. 

Exit with UJ in locations W + M + 1 + J, TUJ in location 
W + 2M + 2, and locations W-l thru W + M unchanged. 

c. Space Required 

172 cells of instructions and constants 
13 cells of temporary storage 

Block of 3M + 3 locations beginning at core address W-l (inaludes 
data mean and lag storage) 

d. Error Codes 
None 

5. RESTRICTIONS 
See 3-b. 

6. TIMING 

2 

Approximately M mis. 
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» 

,AT 

,U100 

,U301 

» 

ft 

f 

,AT 

,ia 

,U302 

i 

ft 

j 

,AT 

,U100 

,U303 

> 

ft 

» 

,AT 

,K1 

,U30U 

> 

ft 

* 

,AT 

,ia 

,U103 

f 

ft 

i 

,SP 

,U302 

J 

l 

ft 

> 

a AT 

,ia 

,U305 

) 

ft 

y 

,TV 

,U302 

,P205 

,SET 

ft 

> 

,TV 

,U300 

,P215 

,V - ADDRESSES 

ft 

y 

,TV 

,U303 

,P226 

> 

ft 

> 

,TV 

,U300 

,P228 

9 

ft 

» 

,TV 

,U30U 

,P26U 

9 

ft 

> 

,TV 

,U301| 

,P302 

9 

ft 

> 

,TV 

,U305 

,P307 

9 

ft 

i 

,TV 

,U301 

,P320, 

j 

ft 

9 

,TV 

,U30U 

,P321 

9 

ft 

» 

,TV 

,U 30 l 

,P3Ui 

t 

ft 

» 

,TV 

,U303 

,P363 

9 

ft 
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IflG _Q£_ U-_-V _ C.0JM.TS. 


9 

>SP 

>U100 

9 

) 

ft 

3 

>ST 

jU210 

>U102 

9 

ft 

3 

#LQ 

>U300 

>17)B 

y GENERATE 

ft 

y 

>LQ 

>U301 

»17)B 

iU - ADDRESSES 

$ 

y 

>LQ 

>U302 

il7)B 

9 

ft 

y 

»LQ 

»U305 

>17)B 

9 

ft 

> 

>SP 

>U101 

>17)B 

y 

ft 

y 

,TP 

>A 

,uioU 

y 

$ 

y 

>SP 

>U100 

#17)B 

y 

ft 

3 

,AT 

,U10li 

,U30U 

y 

ft 

y 

>LQ 

>U303 

yl 7)B 

y 

ft 

9 

,RS 

,U303 

*K2 

y 

ft 

9 

,TU 

,U10l| 

,P200 

,SET 

ft 

9 

,TU 

,U10ii 

,P222 

,U - ADDRESSES 

ft 

9 

,TU 

,U10li 

,P30U 

9 

ft 

9 

,TU 

>U30U 

,Pl6U 

y 

ft 

,Pl6ii 

,TP 

,FILL 

,U10li 

9 

ft 

9 

,TU 

,U30l* 

,P201 

y 

ft 

9 

,TU 

,U300 

,P20ii 

y 

ft 

> 

,TU 

,11300 

>P215 

y 

ft 

9 

>TU 

>U30ii 

,P219 

9 

ft 

9 

,TU 

,U30li 

,P221 

y 

ft 

y 

»TO 

,U300 

,P225 

y 

ft 

9 

,TU 

,U300 

,P228 

y 

ft 

9 

,TU 

,U300 

,P302 

y 

$ 

9 

,TU 

,U305 

,P320 

y 

ft 

9 

,TU 

,U303 

,P321 

y 

ft 
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LOC 

OP 

U 

V 

COMMENTS 



,TU 

,U301 

,P31|0 

> 

$ 


,TU 

,U305 

,P3Ul 

» 

$ 


,TU 

,U302 

,P3U3 

i 

$ 


,TU 

,U301 

,P362 

> 



,SP 

,U100 

;i7)b 

,SET 

$ 


,AT 

,U208 

,A 

,REPEATS 

$ 


,TU 

,A 

,P203 

» 

$ 


,TU 

jA 

,P22U 

t 

$ 


,TU 

>A 

,P36l 

t 

$ 


,AT 

,U209 

>A 

» 

$ 


,TU 

jA 

,P30l 

i 

$ 


,RS 

,P203 

,K2 

y 

$ 


,RS 

,P22i; 

,K2 

> 

0 


,RA 

,P36l 

,K2 

y 

$ 


,RS 

,P301 

,K2 

* 

$ 

P200 

,TP 

,FILL 

jA 

,L0 (SO) 

$ 

P201 

>AT 

,FILL 

>A 

,TO 

$ 


,LT 

,h3) B 

>A 

,W + M + 2 

$ 

P203 

,RP 

,FILL 

,P205 

» 

$ 

P201+ 

>AT 

,FILL 

»A 

> 

$ 

P205 

,DV 

,U100 

,FILL 

> 

$ 


,SP 

,U100 

,U3)B 

,LM (SO) 

* 


,TP 

,A 

,Q 

,TO 

$ 


,LT 

f 

,A 

,W.: +i-2M + 2 

$ 


,ST 

,K1 

,U101 

) 

e 


,TP 

,U101 

,uUoo 

9 

$ 
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ITEM 

NO. 

LOC OP 

U 

V 

COMMENTS 




,P2l5 

y TN 

y FILL 

, FILL 

3 

ft 

, 

y RA 

,P215 

y U200 

3 

ft 

9 

»u 

,uUoo 

,P2l5 

3 

ft 

9 

,QJ 

,P219 

,P221 

9 

ft 

,P219 

,TN 

> FILL 

,A 

9 

0 

> 

,MJ 

3 

, P222 

3 

ft 

,P221 

,TP 

f FILL 

,A 

9 

ft 

,P222 

, AT 

y FILL 

,A 

3 

ft 

» 

3 LT 

,U3)B 

,A 

9 

ft 

,P22h 

,RP 

y FILL 

, P226 

3 

ft 

,P225 

, AT 

, FILL 

,A 

9 

ft 

, P226 

,DV 

,0100 

, FILL 

9 

ft 

9 

, TP 

,U101 

, uUoo 

9 

ft 

y P228 

, TN 

, FILL 

, FILL 

3 

ft 

9 

,RA 

, P228 

, U200 

9 

ft 

> 


, uUoo 

, P228 

3 

ft 

> 

,SP 

,U205 

9 

y COS Pl/M (S30) 

ft 

, 

,DV 

,U100 

,Q 

3 

ft 


, MP 


,Q 

9 

ft 

» 

, LT 

,6 

, U300 

9 

ft 

» 

, MP 

, U300 

, U300 

9 

ft 

9 

, LT 


, U301 

3 

ft 

9 

, MP 

,U300 

,U301 

9 

ft 

3 

, LT 

,6 

, U302 

3 

ft 

3 

,SP 

, U201 

, 36)B 

9 

ft 

3 

, MA 

, U300 

, U202 

9 

ft 

3 

, MA 

, U301 

y U203 

9 

ft 
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Huai 

■IM 

U 

V 

COMMENTS 


> 

»MA 

,U302 

,U20U 

» 

3 

> 

,LT 


,U302 

,INITIALIZE 

$ 

> 

>LT 

,1 

,U300 

,2 COS PI/II 

$ 

» 

, TP 

,U201 

*U301 

» 

$ 

» 

,SP 

,U100 

, 

,SET OUTSIDE LOOP 

$ 

» 

,ST 

,K1 

,uUoo 

,FOR M-l PASSES 

$ 

>P260 

,IJ 

,uUoo 

,P262 

, M-l PASSES 

$ 

) 

,MJ 

% 

>P320 

,TEST 

$ 

,P262 

,MP 

,U300 

,U301 

,IHL (S 30 ) 

$ 

* 

,LT 

>6)b 

>A 

3 

$ 

>P26U 

,ST 

>U302 

,FILL 

3 

$ 

> 

,TP 

>U301 

,U302 

,H + 1 TO H 

$ 

> 

,TP 

>A 

,U301 

> 

$ 

> 

,TP 

,A 

,U30U 

,INITIALIZE 

* 

> 

,TP 

,U201 

,U305 

> 

$ 

> 

,LT 

,10001)B 

,U303 

,2 IKL 

$ 

) 

,TP 

,U102 

,Uii01 

,SET M-2 PASSES 

$ 

3 

,TV 

,U103 

,P282 

,SET STORE YHP 

$ 

,P280 

,MP 

,U303 

,U30U 

,YHP T0 W + 2M + 2 + P 

$ 

t 

,LT 

,6)b 

,A 

, 

$ 

,P282 

,ST 

,U305 

,FILL 

3 

$ 

> 

,TP 

,U30U 

,U305 

,P + 1 TO P 

• 

% 

,TP 

,A 

,U 30 l; 

> 

$ 

> 

,RA 

,P282 

,K1 

> 

$ 

3 

,IJ 

,UU01 

,P280 

} M-2 PASSES TEST 

$ 

> 

,SP 

,K0 

i 

,LH TO W + M + 2 + H 

$ 

,P301 

,RP 

,FILL 

,P303 

t 

$ 
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LOC OP _y_V_ COMMENTS 


iP302 

»MA 

.FILL 

.FILL 

y 

$ 

»P303 

>LT 

>7)B 

»A 

» 

$ 

»P30U 

jAT 

,FILL 

jA 

y 

$ 

y 

,TN 

,U10li 

.uioU 

y 

$ 

y 

,AT 

,U10U 

>A 

y 

$ 

>P307 

,DV 

,U100 

.FILL 

» 

0 

y 

»RA 

>P307 

,KL 

.STEP LH STORE 

$ 

y 

»MJ 

» 

,P260 

.JUMP TO TEST 

$ 

»T3.20 

,1P 

,FILL 

.FILL 

,L1 T0L,-1 

$ 

.P321 

,TP 

>FILL 

.FILL 

y 

5 

y 

,TP 

,U100 

.uUoo 

.SET M + 1 PASSES 

$ 

»P3U0 

,TP 

.FILL 

.A 

»UJ TO W + 11 + 1 + J 

* 

,P3Ul 

.AT 

,FILL 

,A 

y 


> 

,MP 

,A 

»U206 

y 

$ 

,P3li3 

,MA 

.FILL 

,U207 

y 

$ 

,P3UU 

,LT 

>i)b 

.FILL 

y 

* 

y 

,RA 

,P3Uo 

,K2 

y 



,RA 

.P3U1 

.K2 

y 

fp 

t 

,RA 

,P 3U3 

,K2 

y 

$ 

> 

,RA 

,P3Uii 

,KL 

y 

$ 

y 

.IJ 

,uhoo 

.P3U0 

,M + I PASSES TEST 

S 

* 

,TP 

,K0 

*A 

.SUM UJ 

$ 

,P36l 

>RP 

.FILL 

.P363 

,TQ 

$ 

>P362 

»AT 

.FILL 

.A 

,W + 2M + 2 

$ 

>P363 

,TP 

*A. 

.FILL 

y 

$ 

y 

,MJ 

> 

,T + 2 

, JUMP TO EXIT 

$ 

,U200 

,00 

,2 

,2 

, U UP 2 V UP P 

* 
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ITEM 

NO. 



LOC 

OP 

U 

V 

COMMENTS 


U201 

,01 


9 

,1 (S30) 

ft 

,U202 

,77 

,37777)B 

,77777)B 

,4 (S30) 

ft 

,U203 

,00 

,2525)B 

,25252)B 

(S30) 

ft 

,U20l| 

,77 

,77722)B 

,37223)B 

1/6 (S30) 

ft 

,U205 

,03 

,11037)B 

,552U2)B 

,PI (S30) 

ft 

,U206 

,07 

,2702li)B 

,3656l)B 

,.23 (S35) 

ft 

,U207 

,21 

,21727)B 

,2ii37)B 

,.5U (s35) 

ft 

,U208 

,00 

,20000)B 

9 

,F0R 

ft 

,U209 

o 

o 

,10000)B 

9 

,PRESETS 

ft 

,U210 

,00 

9 

9 

» 

ft 

,KO 

,00 

9 

9 

,ZER0 

ft 

»K1 

,00 

y 

,1 

,V - ADVANCE 

ft 

,K2 

,00 


9 

,U - ADVANCE 

ft 

1 

,ENDSUB 

, 

9 

, 

ft 







1. IDENTIFICATION 


APAC - AUTOCORRELATION 

Harry Shaw - October 15, 1957 

Applied Physics Laboratory 


2. PURPOSE 

Given N data XJ, J = l(l)N, compute data mean X and M + 1 
lags RH, H = 0(1)M. 

3. METHOD T 

a. R( T J a i./ ht-T) d, 

° 


A 

f 




is approximated by 


N-H 


R (H At) = RH *= N-H Kral YK.Y K + H 


where 

YJ - XJ-X, J = 1(1)N. 

b. Inputs XJ are integers scaled zero such that |iXjj=9999. 
Outputs are integers scaled zero. 


USAGE 




a. Calling Sequence 




L0C 

OP 

U 

V 

r 

RJ 

t + 2 

t 


r + 1 Normal Return 


b. Control and Results 

Enter with the code word 00 OMMMM WWWWW [00000 Core Model 
in the accumulator, the code word 00 NNNNN £WVW - Drum Model 
in the Q-register, and the data XJ in locations W + J-l for the 
Core Mode or V + J-l for the Drum Mode. 


Exit with the data mean X in location W-l and the lags RH in 
locations W + H. The code word 00 OMMMM WWWWW is left in the 
accumulator (See APSD - Spectral Density). 






Page 2 


c. Space Required 

160 cells of instructions and constants 
13 cells of temporary storage 

Core Mode - block of N + M + 2 locations beginning at core 
address W-l 

Drum Mode - block of N locations beginning at drum address V 
and block of 3M + 2 locations beginning at core address W-l. 

d. Error Codes 
None 

3. RESTRICTIONS 
See 3- b. 

6. TIMING 

Approximately 1/2 MN As, 







APPLIED PHYSICS LAD 


APAC PAGE 3 
Oct. 15, 1957 





LOC. 

OP 

U 

V 

COMMENTS 


> 

t SUB 

» APAC 

,160 

, LEADING LINE 

% 

y 

, TEMPS 

>13 

>0 

, TEMPS 

% 

y T 

, MJO 

* 

,P100 

, ENTRANCE 

% 

9 

/ 

, ALARM 

» 

y 

, ALARM EXIT 

% 

> 

, MJO 

> 

y 

, NORMAL EXIT 

% 

,F100 

, TP 

>A 

,U100 

, SAVE 1ST CD VJD 

% 

y 

,TV 

> A 

,U101 

, VI (SO) 

$ 

y 

t TV 

i Q 

>U103 

> V (SO) 

$ 

y 

,TU 

> A 

,uio 6 

> M (S15) 

$ 

y 

,TU 

>Q 

,U108 

> N (S15) 

% 

y 

,LA 

> A 

>17)B 

> w (S15) 

$ 

> 

i TU 

> A 

> U102 

y 

s? 

> 

> 1 »Q 

>Q 

,17)B 

> V (S15) 

% 

y 

t TU 

>Q 

,uioU 

y 

% 

y 

>LT 

,6 

,uio5 

y M (SO) 

$ 

> 

>LQ 

>Q 

>6 

, N (SO) 

$ 

> 

>TV 

>Q 

>U107 

y 

$ 

> 

,TU 

,U102 

i PliOl 

y PRESET INST 

$ 

y 

,TU 

,U102 

,PUo 6 

, COMMON TO 

$ 

y 

t TV 

,U101 

>pUoi 

, DOTH MODES 

$ 

y 

>TV 

,U101 

>P501 

9 


y 

,RS 

>Pli01 

>KL 

y 

$ 

y 

,TP 

,U109 

>Q 

y 

$ 

y 

>QS 

,U106 

,p5oo 

y 

$ 

y 

,RA 

>P5oo 

>K2 

y 

$ 

y 

,SP 

>U103 

y 

y MODE TEST 

$ 

y 

* 2 J 

,P300 

,P200 

y 

% 
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LOC. 

OP 

u 

V 


COMMENTS 


jP200 

} QS 

,U108 

,P25l 


CORE MODE PRESET 

$ 

9 

,QS 

,U108 

,Pl;00 



$ 

9 

f QS 

,U108 

,PUo5 

9 


* 

9 

,QS 

,p5oo 

,P25U 

9 


$ 

9 

y TP 

,MiOO 

,piau 

9 


3 

9 

,TU 

,U102 

,PU08 

9 


$ 

9 

,RA 

,PU08 

,U108 

9 


$ 

> 

,TU 

,U102 

,P5oi 

9 


$ 

> 

,RA 

,F5oi 

,U108 

9 


$ 

9 

,TV 

,U101 

,P252 

9 


$ 

9 

,TV 

,?hOl 

,P253 

9 



9 

,TV 

,U101 

,P255 

9 


0 

9 

,RA 

,P255 

,U107 

9 



9 

,TV 

,1^00 

,piao 

9 


ft 

s? 

9 

,TP 

y KO 

,A 

9 

CORE MODE 

ft 

nP 

,P25l 

,RP 

,10000)B 

,P2 53 

9 


$> 

,P252 

,RA 

*A 

,FILL 

9 


$ 

,P253 

,DV 

,U107 

,FILL 

9 


0 

,P25U 

,RP 

,10000)B 

,P256 

9 


s 

,P255 

,TP 

y KO 

, FILL 

9 


$ 

} P256 

,MJ 

9 

,pUoo 

9 

JUMP TO E 


,P300 

,TP 

,U107 

j A 

9 

DRUM MODE PRESET 

$ 

> 

,DV 

,uio5 

,U300 

9 


0 

9 

i LT 

,10017)B 

,U301 

9 


$> 

9 

,TP 

,U109 

,Q 

9 


$ 

9 

>QS 

,A 

,P356 

9 


$ 

9 

,QS 

A 

# P358 

9 


$ 
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LOC 

OP 

U 

V 


COMMENTS 

> 

,QS 


, p6oi 

> 

% 

> 

,RA 

, P601 

,uio6 

> 

% 

» 

,QS 

,U106 

,P35l 


% 

> 

> OS 

,U106 

,P3$3 


% 

» 

,QS 

,U106 

,P36l 

» 

% 

> 

,RA 

,P36l 

> K2 

> 

% 

f 

,SP 

,U106 

A 

» 

8 

» 

,QS 

A 

,P369 

i 

$ 

» 

, TV 

,U101 

,P350 

» 

$ 

9 

f TV 

,U101 

,P3$2 

9 

$ 

t 

, TV 

,U101 

,P3^ 

> 

% 

l 

,TV 

,U101 

,P3$7 

9 

% 

9 

,TV 

,U101 

,P3$9 

9 

% 

9 

,TV 

,U101 

,P360 

j 

& 

9 

,TV 

,U101 

,P370 

9 

% 

> 

,TV 

,U101 

,P602 

» 

$ 

9 

,RS 

,P3$0 

,KL 

» 

$ 

9 

,RS 

,P360 

,KL 

9 

$ 

9 

,SP 

,uio$ 

A 

9 

$ 

9 

,RA 

,A 

,U101 

i 

0 

i 

,TV 

,A 

,P362 

) 

$ 

» 

,TU 

,U10li 

,P3$2 

9 

% 

9 

,TU 

,uioU 

,P370 

9 

% 

> 

,TU 

,U102 

,P35U 

9 

% 

9 

,TU 

,U102 

,P359 

9 

% 

9 

,RS 

,P3$U 

,K2 

9 

% 

9 

,RS 

,P359 

,K2 

9 

% 
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ITEM 


LOC 

OP 

U 

V 

COMMENTS 



,TP 

,uio8 

, A 


ft 


RS 

} 

, A 

,U301 

} 

ft 


,RA 

, A 

,uioU 

y 

ft 


,tu 

, A 

,P357 

y 

* 


,RS 

, A 

,U 106 

y 



,TU 

>A 

,P602 

y 

ft 


,RS 

,U300 

iKl 

y 

ft 


,TP 

,U300 

,U301 

y 

ft 


,RS 

»U301 

jKl 

y 

ft 

P35o 

,TP 

,KO 

,FILL 

, DRUM MODE 

ft 

P35l 

>RP 

,30000)B 

,P353 

y 

ft 

P352 

,TP 

,FILL 

>FIUj 

y 

<|V 

p 353 

>RP 

>10000)B 

,P355 

y 

A 

# 

P35U 

,RA 

,FILL 

,FILL 

t 

V 

P355 

,U 

,U300 

,P375 

y 

ft 


,TU 

>P359 

> P3552 

y 

ft 

P3552 

,TP 

, FILL 

,A 

y 

ft 

P356 

,RP 

,30000)B 

,P358 

y 

ft 

P357 

,TP 

,FILL 

,FILL 

y 

ft 

P358 

>RP 

,10000)B 

,P360 

y 

ft 

P359 

,RA 

,FILL 

,FILL 

y 

ft 

P360 

,DV 

,U107 

, FILL 

y 

ft 

P361 

,RP 

,10000)B 

,P363 

y 

ft 

P362 

,TP 

,K0 

, FILL 

y 

ft 

P363 

,TP 

,U109 

t Q 

> 

ft 


> QS 

,U 106 

, PUo5 

y 

ft 


,SP 

,U106 

,1 

y 

ft 


>QS 

,A 

,pUoo 

y 

ft 
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NO. LOC 

OP 

U 

V 

COMMENTS 

APAC " PAGE 7 

Oct. 1$, 1937 


9 

,TP 

,pia 3 

,PliiU 

9 

$ 


y 

,TV 

0 

0 

§ 

,PUio 

9 

9 


,p369 

,RP 

,30000)B 

,P 371 

9 

$ 


,P 370 

,TP 

,FILL 

,FILL 

9 

$ 


,P371 

,SP 

,U106 

A 

y 

9 


9 

,RA 

,A 

,U102 

9 

$ 


> 

,TU 

A 

,PU08 

9 

9 


9 


> 

,PUoo 

,JUMP TO E 

9 


>P375> 

,RA 

,P3?2 

,U106 

9 

9 


> 

,MJ 

9 

>P 3 £L 

,LOOP 

rfV 

4 p 


,PliOO 

>RP 

, 20000)B 

>PU02 

» EL 

9 

c 

,PUox 

>RS 

> FILL 

> FILL 

9 

9 


,PU02 

,TP 

,U107 

,UU01 

9 

9 


> 

,TV 

,UI01 

,PU06 

9 

9 


y 

,TP 

,uio3 

,uUoo 

9 

9 


,puoia 

,TP 

,K 0 

A 

9 

9 


,PUo5 

,RP 

,30000)B 

,PU07 

9 

9 


,PU06 

,MA 

,FILL 

,FILL 

9 

9 


,PU07 

,DV 

,uUoi 

,Q 

9 

9 


,Pl;08 

,RA 

,FILL 

>Q 

9 

9 


9 

,IJ 

,uii00 

,PUll 

y 

9 


,piao 

,MJ 

9 

,FILL 

, JUMP TO E 

9 


,piai 

,RS 

,uUoi 

A 1 

y 

9 

• 

9 

,RA 

,PUo 6 

,KL 

9 

9 


, 1 :. 

,RA 

,Pl *08 

,K2 

9 

9 


,piau 

,RS 

9?h0$ 

»K 2 

9 

9 


,pia 5 


9 

,PliOUi 

, LOOP 

9 








'APPLIED 

PHYSICS LAB 





APAC 

Oct. 

• PAGE 8 
15, 19!? 7 

• 

ITEM 

NO. 

LOG 

OP 

U 

V 
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>p5oo 

,RP 

,30000)B 

*PS02 

,E2 


$ 



>p5oi 

>TP 

,FILL 

,FILL 

3 


$ 



>P!?02 

,TP 

,U100 

jA 

3 


$ 



3 

,MJ 

i 

,T + 2 

3 JUMP TO EXIT 


$ 



,p6oo 

,U 

,U301 

,P613 

jE3 


$ 



,P601 

,RP 

,30000)B 

,P603 

9 


$ 



,P602 

,TP 

,FILL 

,FILL 

9 


* 



,P603 

,TP 

,U109 

>Q 

9 


$ 



9 

,QS 

,P601 

,PU00 

3 


$ 



y 

,TU 

,p6oi 

,PUo5 

3 


$ 



9 

,TP 

£ 

o 

o 

,PU1U 

3 


$ 

© 


> 

,SP 

,uio6 

,1 

3 


$ 



3 

,RA 

jA 

,U102 

3 


$ 



3 

,TU 

.A 

,PU08 

3 


* 



3 

,TU 

>A 

,P5oi 

3 


$ 



3 

,TV 

V# 

►—w 

o 

o 

>PUio 

3 


$ 



3 

,MJ 


,Pii00 

>JUMP TO E 


$ 



,P6l3 

,RA 

,P370 

,U106 

3 


$ 



3 

,MJ 

3 

,P369 

> JUMP TO E 


$ 



O 

o 

,RS 

,Pli03 

,K2 

,PRESET 


$ 



,m£oo 

,00 

> 

>p5oo 

>E 





,m6oo 

,00 

> 

,P600 

yE 





,U109 

,00 

>7777)B 

3 

,MASK 


$ 

• 


,K0 

,00 

> 

3 

,ZER0 


$ 


,KL 

,00 

> 

,1 

,V - ADVANCE 


$ 



,K2 

,00 

, 1 

3 

,U - ADVANCE 


$ 



3 

,ENDSUB 

> 

3 

3 


0 




H0USE1 


1103-A Subroutine 


1. Identification: HOUSE 1 

Use Compiler Tape Dump 
Keipert, Tantzen, July 57 
Holloman Air Development Center 

2. Purpose: Punch USE compiler side-by-side output on cards for 

listing on the IBM 1*07. Useful if the high speed 
printer is down or for installations having none. 


3. Method: The first 80 characters of each blockette are punched on 
a first card, the next 36 characters are punched in 
columns 37-72 on a second card. The second card contains 
also a control punch to facilitate printing all 116 
characters on one line. The last U characters of each 
blockette are ignored. Ta« punching of the second card 
is optional. 

U. Usage: The routine is a service routine. For purposes of 

distribution through USE it has been written as a standard 
subroutine, with one exception, the control words are in 
A and Q only. In the subroutine form the usage is: 


Place Tape Unit number in Aq^ 

Set Q 35 * 0 for punching 2 cards per blockette 
Q 35 = 1 for punching 1 card per blockette 
Then RJ H0USElf2 H0USE1 
No manual cycling of Bull necessary. 


5. Restrictions: 

5.1. Control Punch. The second card will have a punch in 
row 12, column 7* The column may be changed easily by 
taking a different constant C+7. 

5.2. Special Characters. There are 10 characters on the U07, 
which will not be identical for different machines. The 
compiler tape has 6 characters which have to be correlated 
to 6 of the 10 hole combinations. This is done by 6 bioctal 
special codes SC through SC+5. As coded now, the 
correspondence is: 
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H0USE1 


Characters Holes 

plus 12 

period 12-8-3 

parenthesis close 12 -8-U 

comma 0-3-3 

space none 

parentiiesis open 0-3 -U 


If your Ij07 is different, substitute other codes according 
to the following correspondence table. 

Holes wanted, Special octal code. 


12 

01 

11 

02 

8-3 

IS 

8 -U 

16 

12-8-3 

35 

12 -8-U 

36 

11-8-3 

55 

11 -8-U 

56 

0-8-3 

IS 

0 -8-U 

76 


The end of line character is alx-tays punched as 11-8-3. 

5.3. Wiring board. Use a standard 80-30 board. If wanted, 

use control punch on second card to print columns 37-72 of 
second card into paper columns 81-116. 

5.U. Parity error. If a parity error is found, the routine 

will automatically go to the parity error routine H0SP11 
(see Useful Note # 13). This is accomplished by the three 
commands PAR+2,3, and U. If this routine is not available 
at your installation, replace tnose 3 commands by 
something else. 

Coding Information: 

Space required in core to operate - 323 cells. Cards 
are punched at a rate of 110 cards/min. Routine is 
machine checked. 


iiOUSEl 


FLOW CHART 


BODY EF, pick punch card 

one card per blockette? No — 
set SW on 1 

jump- 

set SW on 2 -- 

form tape constants -*- 

EF, pick punch 
READ read one block 

parity checks? yes - 

go to tape reread routine 

initialize PICK -*- 

LAST last blockette? yes - 

EF, pick punch, punch 
clear image, set bit 
set for field 1 

SET mod. PICK —-— 

set char index 


OUT rewind Tu 

clear punch ch. 
jump to EXIT 


PICK 


WOR 


store char in image 


RJ 


field ready? yes 
word ready? yes 


no 


advance PICK by 6 


block ready? 

/ \ 

no yes 

1 i 

LAST READ 


b 

— F3 


set for field 2 
set RJ to b 
jump - 


set for field 3 
set RJ to c 
jump- 


CARD punch a card 
SW 

1 

2 

i 

TWO first card? 

A 

-no 


yes 

\ 

EF, pick punch, punch 

set for field 2 

set RJ to c 

clear image 

set bit in field 1„ 

jump 
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ilOUSEl 


PICK 

TEST 

- REGION 

PUN 

SPECIL 

NORMAL 


FLOW CHART 

DETAIL: STORE CHARACTER IN IMAGE 


Set end for row 8 
for row U 
for zone 
for digits 

shift for next character 
ma3k character out 
shift bit one right 

blank? yes - 

test for special codes 
chane-e if necessary 
code < 20B? yes — 
modify PUN 

code - 20B 
_ I 

bit to zone -<- 

code < 13'B? yes - 

'bit to row 8 

code = 16B? yes - 

set for bit to row 3 
bit to row U or 3 —- 

jump- 

set cmd to store bit •*— 
bit to row 12-9 


i 


i 
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H0UGE1 


LOC 

OP 

U 

ADDR 

V 

ADDR 

REMARKS 


B 


20 



HOUSE 1 


X 


126 



PUNCH USE COMPILER 


X 


31 



SIDE-BY-SIDEOUTPUT 


X 


166 



ON CARDS 



0 




KEIPERT.TANTZEN 



0 




JULY1957 

START 

MJ 

0 


BODY 


ENTRY 



fill 


FILL 


NOT USED 


MJ 

0 


FILL 


EXIT 

BODY 

EF 

w- 

1 

R + 

1 

PP 


OJ 

BODY+ 

2 

BODY + 

4 

ONE OR TWO CARDS? 


TV 

EST + 

1 

SW 


SET FOR 1 CARD 


MJ 



READ- 

4 



TV 

EST + 

2 

SW 


SET FOR 2 CARDS 


LA 

A 


12 


FORM 


AT 

R + 

6 

T + 

4 

TAPE 


AT 

R 


T 


CONSTANTS 


EF 

0 


R + 

1 

PP 

READ 

EF 

0 


T 


READ 


RPV 

120 


PAR 


ONE BLOCK 


ERB 

0 


W 



PAR 

ERA 

0 


A 




2 J 

PAR + 

2 

PAR + 

5 

PARITY? 


TP 

READ 


H0SP11+ 

3 

GO 


TP 

READ+ 

1 

H0SP11+ 

4 

TO 


RJ 

HOSP11+ 

2 

H0SP11 


REREAD 


TU 

BODY 


PICK 


INITIALIZE 

LAST 

TU 

PICK 


LAST + 

2 



RA 

LAST + 

2 

C + 

3 



TP 

FILL 


A 




EJ 

R + 

4 

OUT 


LAST BLOCKETTE? 


EF 

0 


R + 

2 

PP .P 

CL 

RPV 

39 


CL + 

2 

CLEAR 


TP 

C + 

1 

CR 


IMAGE 


TP 

C+ 

2 

T -f 

1 

SET BIT 


TP 

CON 


T + 

2 

SET FIELD 1 ADDR 


TP 

c+ 

2 

IND 


1ST CARD IND 

SET 

RA 

PICK 


C + 

3 



TP 

C1 + 

2 

I ND + 

1 

CHAR IND 


TU 

T + 

2 

PUN + 

3 



RA 

PUN + 

3 

C+ 

3 

SET FOR ROW 8 


AT 

C + 

4 

SPECIL 


FOR ROW 4 


AT 

C + 

. 5 

PUN 


ZONE 


TP 

A 


NORMAL 


DIGIT 

PICK 

LQ 

FILL 


6 


NEXT CHAR 


OT 

R + 

3 

T + 

3 

MASK 


LO 

T + 

1 

35 


SHIFT BIT 1 RIGHT 


ZJ 

TEST 


NORMAL+ 

1 

BLANK? NO* YES 

TEST 

EJ 

CE 


CH 


CHECK 


E J 

CE + 

1 

CHI 
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H0USE1 


LOC 

OP 

U 

ADDR 

V 

ADDR 

REMARKS 


EJ 

CE + 

2 

CH2 


FOR 


EJ 

CE + 

3 

CH3 




EJ 

CE + 

4 

CH5 


SPECIAL 


EJ 

C + 

2 

CH4 


CODES 


MJ 

0 


REGION 



CH 

TP 

CE + 

5 

T + 

3 

RE PL 630 BY 013 


MJ 

0 


REGION 



CHI 

TP 

CE + 

6 

T + 

3 

REPL 22B BY 358 


MJ 

0 


REGION 



CH2 

TP 

CE + 

7 

T + 

3 

REPL 73B BY 36B 


MJ 

0 


REGION 



CH3 

TP 

CE + 

8 

T * 

3 

REPL 21B BY 75E 


MJ 

0 


REGION 



CH4 

TP 

CE + 

9 

T + 

3 

REPL 01 BY 00B 


MJ 

0 


NORMAL* 

1 


CH5 

TP 

CE + 

10 

T + 

3 

REPL 17B BY 76B 

REGION 

TP 

T + 

3 

A 




TJ 

Cl 


PUN 


LESS 2OB? YES 


RS 

PUN 


C + 

3 

MODIFY ZONE 


RS 

T + 

3 

Cl 


CODE—20B 


MJ 

0 


REGION* 

1 


PUN 

CC 

FILL 


T + 

1 

SIT TO ZONE 


TP 

T + 

3 

A 




TJ 

Cl* 

1 

NORMAL- 

2 

NORMAL CODE? YES 


CC 

FILL 


T + 

1 

BIT TO ROW 8 


TP 

Cl* 

1 

A 


15B TO A 


TJ 

T + 

3 

SPECIL 


CODE 16B? YES 


RA 

SPECIL 


C + 

3 

SET FOR ROW 3 

SPECIL 

CC 

FILL 


T + 

1 

61T TO ROW 4 OR 


MJ 

0 


NORMAL* 

1 



LTR 

15 


T + 

3 

SET 


RS 

NORMAL 


T + 

3 

FOR ROW 

NORMAL 

CC 

fill 


T + 

1 

BIT TO ROW 


LQ 

Q 


35 


TEST 


QJ 

NORMAL+ 

3 

WOR 


FIELD DONE? YES* 


RJ 

NORMAL* 

3 

NORMAL* 

4 



RA 

T + 

2 

Cl* 

4 

SET FOR FIELD 2 


TV 

CON-*- 

1 

NORMAL* 

3 

SET RJ TO B 


MJ 

0 


SET 



F 3 

RA 

T + 

2 

Cl* 

4 

SET FOR FIELD 3 


LQ 

T + 

1 

8 




TV 

CON* 

2 

NORMAL* 

3 

SET RJ TO C 


MJ 

0 


SET 



WOR 

IJ 

I ND+ 

1 

SET* 

2 

WORD READY? NO 


MJ 

0 


SET 



CARD 

RPB 

3 


CARD* 

2 

SET UP WRITE 


TV 

CON + 

3 

WRITE 


CMOS 


TP 

C1 + 

3 

Q 


ROW INDEX * 11 

WRITE 

EWA 

0 


FILL 


WRITE 


EWB 

0 


FILL 


NEXT 
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zd 

t==* 



LOC 

OP 

U 

ADDR 

V 

ADDR 


EWB 

0 


FILL 



RPU 

3 


WRITE* 

5 


RA 

WRITE 


C + 

2 


IJ 

0 


WRITE 


SW 

MJ 

0 


FILL 



RA 

PICK 


C* 

6 


EJ 

EST 


READ 



MJ 

0 


LAST 


TWO 

I J 

IND 


TWO* 

3 


TP 

PICK 


A 



MJ 

0 


SW + 

2 


EF 



R* 

2 


TP 

CON 


T + 

2 


RA 

T + 

2 

Cl* 

4 


TV 

CON* 

2 

NORMAL+ 

3 


RPV 

39 


OUT- 

2 


TP 

C + 

1 

CR 



TP 

c+ 

7 

CR + 

11 


MJ 

0 


WOR 


OUT 

EF 



T + 

4 


RP 

3 


OUT* 

3 


EF 



R + 

5 


MJ 



START* 

2 

CON 


CR 


F3 






CARD 






CR + 

26 





CR 






CR* 

13 

EST 

LO 

W * 

119 

6 






SW* 

1 





TWO 


R 

40 

402B 


10B 



40 



12B 






77B 



61 

61616B 


16161B 



40 

0 


0 



2 

00200B 


0 


C 




120 




1 

4 

7 

6 

40000B 


1 


0 

2 OB 
15B 
5 


IICUSE1 


REMARKS 

ROW 

MODIFY 

CARD READ? NO 
JUMP IF 2 CARDS 
ADVANCE PICK BY 6 
BLOCK READY? YES 

FIRST CARD? YES 
PICK CMD TO A 

PP»P 
SET FOR 
FIELD 2 
SET RJ TO C 
CLEAR 
IMAGE 

PLACE CONTROL BIT 

REWIND TAPE 

CLEAR PUNCH 
JUMP TO EXIT 


PP 

PP,P 

MASK 

END MARK 

CYCLE 

DUMMY 

ZERO 

COMP IL CODE SPACE 


CONTROL PUNCH 


7 



H0USE1 


LOC OP U ADDR V ADDR REMARKS 




13B 



15B 



CE 


63B 

COMPILER CODE + 



22B 

PERIOD 



43B 

PAREN CLOSE 



21 B 

COMMA 



17B 

PAREN OPEN 



1 

6 SPECIAL (PLUS) 



35B 

CODES (PERIOD) 



36B 

DETERMINED (PAR CL 



75 8 

BY LAYOUT OF (COMMA 




INDIVIDUAL (SPACE) 



76B 

IBM 407 (PAR OP 

T RESERV 

5 

5 


IND RESERV 

2 

2 

INDICES 

W RESERV 

120 

120 

BLOCK SPACE 

CR RESERV 

39 

39 

CARD IMAGE SPACE 

END 
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IDENTIFICATION 


RRFCIO - NATURAL LOG X FLOATING POINT 
L. M. Johnson - 15 August 1957 
Remington Hand Univac 


2. PURPOSE 

Given X, compute Y(X) = lnX in floating point, using stated point arithmetic.. 


3. METHOD 

—27 

a. Accuracy; |Y(X) - ln(X)|<2 in a 27 bit mantissa. 

b. Ra> ge of Argument: X>0, 2 ^ 2< ^<X<2‘‘" 2 

c. Scaling: 1103AF^floating point binary number represent*tion, 

d. Deriv;tionl obtained from the relation lnX = (ln2)(log c X)j log 0 X is 

' 1 

approximated by the expression — + 

(See Rand Sheet Number 42, and RRF011 - Natural Log X Stated Point.) 

4. USAGE 


^ =1 °2i-l(x + A J Where 1 ~ X - 2 * 


a. Calling Sequence 


LOC 


U ADDR 

V ADDR 

r 

RJ 

t+2 

t 

r+1 

Normal 

Return 



b. Control and Results 

The argument, X, in floating point form must be initially stored at t+4j the 
function Y(X) will be found in floating point form at t+3 upon successful 
completion of the routine. Y(X) is also left in A^. • 

c. Space Required 

78 cells of instructions and constants 
3 cells of working storage 

v 

d. Error Codes 

The following error code in flex is left in the Q-register upon return through 
the error exit ' 


om. 


EXPLANATION 


5. RESTRICTIONS 


RRF010 


X<0 


Th£ argument must be within the stated range and must be in packed, normalized 
floating binary form. 
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6. CODING INFORM. "’ION 

a. Constants 


LOC 

mum 

EXPLANATION 

c 

00 00000 00000 

Zero 

Cl 

55 20236 31500 

• 2 35 

C2 

00 00000 00002 

Two 

C3 

20 00000 00000 

1 * 2 34 

C4 

00 00001 00000 

U-Address Advance 

C5 

15 71272 26456 

C_ * 2 35 

C6 

22 34660 40144 

C *2 35 

C7 

36 61611 14432 

C 5 • 2 35 

C8 

34 25216 61765 

(0,-2) ‘ 2 35 

C9 ' 

26 13441 37677 

Ln2 - 2 35 

CIO 

00 00000 00200 

Characteristic Bias 

Cll 

00 00000 00046 

38 10 

C12 

00 00000 00110 

72 10 

CODE 

12 12263 75237 

Error Code (Flex) 


b. Working Space 

3 cells labeled STORE thru STORE+2 

c. Timing 

Maximum of 5.70 mis. 





REMINGTON RAND DNIVAC 


ITEM NUMBER 


LOC OP 


PAGE 3 OF 
PROBLEM RRFOIO 
CODED BY L.JOHNSON DATE3- 

c o"mrnr ~ 


ENTRY 

ERROR 

EXIT 

Y 

X 

START 


NEST 


, SUB , 
, INOUT , 
, TEMPS , 
, MJ 

, ALARM , 
, MJ 


RRFOIO 

1 

3 

0 


78 

1 

0 

START 


, LNX 

, FLOATING POINT 

» 

t 

» 


, 00 

9 

FILL 

9 

FILL , 

FUNCTION FP 

, 00 

9 

FILL 

9 

FILL , 

ARGUMENT FP 

, TP 

9 

C 

9 

A , 

TEST FOR X 

> TJ 

9 

X 

9 

START+4, 

LESS-EQUAL ZERO 

, TP 

9 

CODE 

9 

Q » 


, MJ 

9 

0 

9 

ERROR , 


, TP 

9 

X 

9 

A , 

STORE 

, LTL 

9 

9 

9 

STORE , 

CHARACTERISTIC 

, LTR 

9 

0 

9 

Q , 

AND MANTISSA (=M) 

, SP 

9 

Q 

9 

o , 

FORM AND STORE 

, SA 

9 

Cl 

9 

o , 

(2M+SQUA.RE ROOT 2) 

, SA 

9 

C2 

9 

o , 

ROUNDED SCALED 33 

, LTL 

\ 

9 

34 

9 

STORE+1, 

IN TEMP 

» SP 

/ 

Q 

9 

0 , 

FORM (2M-SQUARE ROOT 2) 

, ss 

9 

Cl 

9 

33 

SCALED 68 IN A 

, DV 

9 

STORE+1 

9 

STORE+2 , 

FORM SQUARE OF Z= 

, MP 

9 

Q 

9 

Q 

( (2M-SQUARE ROOT 2)/(2M+SQUARE 

, SA 

9 

C3 

9 

o , 

ROUTO SCALED 

, LTL 

9 

1 

9 

STORE+1, 

35 IN TEMP 

, TU 

9 

SET 

9 

NEST+3 , 


, TP 

9 

C5 

9 

.Q 

C(7) TO Q 

, MP 

9 

Q 

9 

STORE+1, 

PARTIAL EVALUATION 

, SA 

9 

C3 

9 

o » 

OF POLYNOMIAL (=P) 

, LTL 

9 

1 

9 

A , 

EXPRESSION 

, AT 

9 

FILL 

9 

Q 

IN APPRX 

, RA 

9 

NEST+3 

9 

04 » 

OF LNX 

, TJ 

9 

TEST 

9 

NEST , 

SCALED 35 IN Q 

, MP 

9 

Q 

9 

STORE+2, 

FORM ROUND STORE 

, RJ 

9 

ROUND+4 

9 

ROUND , 

(P-2Z ) 

, LTL 

9 

1 

9 

A , 

SCALED 35 IN A 

, MP 

9 

A 

9 

09 , 

FORK ROUND STORE 

» RJ 

9 

R0U1JD+4 

9 

ROUND , 

(P-2Z) LM2 SCALD 
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REMINGTON RAND UNIVAC 


PROBLE M RRFOIO _ 

CODED BY L. JOHNSON D ATE 8-15-57 


ITEM NUMBER 

LOC 

OP 

U 


V 

COMMENTS 


X) 

9 

, LTL 

, 1 

9 

STORE+1, 

35 IN TEMP 

% 


9 

, LA 

, STORE+2 

9 

1 , 

FOR' (2Z-1/2) LN2 

% 


9 

, ST 

, C3 

9 

STORE+2, 

SCLD 35 

% 


9 

, MP 

, STORE+2 

9 

C9 , 

IN TEMP 

1 


9 

, RJ 

, round+4 

9 

ROUND , 


$ 


9 

, LTL 

, 1 

9 

STORE+2, 


% 


9 

, RS 

, STORE 

9 

CIO , 

UNBIAS CHAR (=C) 

% 


9 

, MP 

, A 

9 

C9 , 

FORM C(LN2) SCLD 35 

% 


9 

, AT 

, STORE+2 

9 

A , 

FORM (P+C-l/2) LN2 

% 


9 

, AT 

, STORE+1 

9 

A , 

SCLD 35 IN A 

$ 


9 

, TP 

, c 

9 

STORE , 

FORM 

l 


9 

, SF 

, A 

9 

STORE , 

NORMALIZED 

% 


9 

, LTL 

, 28 

9 

Y , 

MANTISSA 

% 


9 

, LTL 

, o 

9 

A , 

IN Y AND A 

% 


9 

, ZJ 

, NTZER 

9 

EXIT , 


% 


, NTZER 

» SP 

, STORE 

9 

0 > 


$ 

. 

9 

, TJ 

, Cll 

9 

YES , 

TEST 38 GRTR K 

$ 

w 

9 

, ST 

, C12 

9 

A , 


% 


9 YES 

, AT 

, CIO 

9 

A , 

ADD BIAS TO CHAR 

$ 


P 

, LTR 

* 27 

9 

Q 
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C(5) SCALED 35 
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^NM NUMBER 

LOC 


OP 


U 


V 


COMMENTS 
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B36 
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14432 
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C(3) SCALED 35 

$ 
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ce 
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61765 
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C9 
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B26 
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13441 
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37677 
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LN 2 SCALED 35 

$ 

f 

CIO 
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9 
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200 

9 

DEC 128 

$ 

9 

Cll 
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9 
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46 

9 

DEC 38 

$ 

9 

C12 

9 
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9 
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110 
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DEC 72 

$ 

9 

CODE 
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B12 
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12263 
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75237 
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ERROR CODE 

$ 
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9 
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A. 


Ident ification 


1. Title: Single Precision Floating Point Conversion, WF'0004. 

2. Autnors: W. Bauer and H. Graham 

Date: 1 July 1067 

3. Installation: Wright Field 
B. Purpose 


This routine converts a single lengtn floating point binary word from core or 
drum memory to its floating decimal equivalent and then to excess-three characters. 
WF0OO4 is to be used primarily as a subsidiary of the High Speed Printer Edit 
Routine, w’FOOOl. 

C. usage 


1. 

Calling 

Loc 

Sequence 

Oft 

U-adar 

^-addr 


r 

RP3 

2 

r+8 


r+1 

TP 

Parameter 

C+3 


r+3 

RJ 

C+g 

C 


r+3 

Normal 

Return 

• 

g. 

Control Data 

Two parameters are required 

for each word to De converted 

follows 

Loc 

Oft 

U-adur 

V-addr 


Param 

XX 

xxxxx 

XXX XX 


Param+1 

D 

M 

w s 

xxxxx 


K 


They are as 


K. 


W (decimal) is the number of characters to be stored starting at address 

(7 < tf < 13) 

3 See WF0001, para D2(b). 

M is tne address of tne first word to be converted. 

D See WF0001, para DB(b). 


K is tne first address of the cells in whicn tne converted word is stored. 
This uata is a series of six-bit excess-three characters stored one to a word in 
tne rightmost six bits, tne leftmost thirty bits being zero. 


3. Space Required 
200 memory cells 




4. Error Codes 


An alarm occurs if: 

a. tf < 7 

b. W > 13 

In either case the alarm is annotated as follows: 

(AjJ = first parameter word 
(Ap ; ) = second parameter word 
(9) = WF0004 in flex code 

fi. Fomiat Generated 


W controls tne number of output characters as follows: 



18 (-)X.XXXXXXX(-)XX 

12 (-)X.XXXXXX(-)XX 


7 (-)X.X(-)XX 



1. The word to be converted must conform to the 1103A definition of 
packed floating point number. 

2. An unnormalized number is translated as a series of space cooes. 

3. Hounding to n digits is accomplished by adding 5 in the n+1 place 



1. Constants and their Locations 


a. Alphanumeric 
J through J3 


b. Numeric 

K1 througn K26 
IK tnrough 1K115 


2. Erasaole Output Locations 
P through P17 
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A. 


I dentification 


1. Title: Single Precision Stated Point Conversion, WF0003 

2. Autnors: W. Bauer anu R. Granam 

Date: 1 July 195? 

8. Installation: Wrignt Field 

B. Purpose 

This routine converts a single lengtn stated point binary word from core or 
drum memory to its decimal equivalent and tnen to excess-tnree characters. 
WF0003 is to be used primarily as a subsidiary of the High Speed Printer Bait 
Routine, WF0001. 

C. Usage 


1. Calling Sequence 


Loc 

On 

U-aadr 

V-adar 

r 

RP3 

8 

r+8 

r+1 

TP 

Parameter 

C+3 

r+8 

RJ 

C+8 

C 

r+8 

Normal 

Return 



2. Control Data 

Two parameters are required for each word to be converted. They are as 

follows: 


Loc 

Op 

U-addr 

V-addr 

Param 

XX 

xxxxx 

XXX XX 


D 

M 

W 3 

Param+1 

— 

—XX 

XXXXX 



J 

K 


K. 


W (decimal) is tne number of cnaracters to be stored starting at aduress 

(1 < <; IS) 

S See WF0001, para D3(b). 


M is tne address of the first word to be converted. 

D See V/F0001, para D8(b). 

K is tne first address of tne cells in wnich the converted wore is 
stored. Tnis uata is a series of six-bit, excess-tnree cnaracters stored one to 
a word in tne rightmost six bits, the leftmost thirty Dits oeing zero. 


J (decimal) is the binary scaling of tne word to be converted. 

(0 < J £ 36). 



3. Space Required 
104 memory cells 

4. Error Codes 

The alarm conditions are as follows: 

a. W > 13 

b. J > 35 

Botn are annotated in the same manner, namely: 

(AjJ = first parameter word 
(A^) = second parameter word 
(Q) = WF0003 in flex code 



Output will be truncated if is less tnan 13; nowever, a word is never roundedo 



1. Constants and their Locations 

a. Alphanumeric 
J through J3 

b. Numeric 

K through K21 

3. Erasable Output Locations 
P tnrough PI5 
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A. Identification 

1. Title: Octal Conversion, WF0002 

2. Autnors: W. Bauer anu R. Graham 

Date: 1 July 1957 

3. Installation: Wright Field 
3. Purpose 

Tnis routine converts binary data from core or arum memory to its octal equiv¬ 
alent and tnen to excess-tnree characters. WF0002 is to be used primarily as a 
subsidiary of tne Hign Speed Printer Ldit Routine, WF0001. 

C. Usage 

1. Calling Sequence 


Loc 

0£ 

U-addr 

V-addr 

r 

RP3 

2 

r+2 

r+1 

TP 

Parameter 

c+3 

r+2 

RJ 

c+2 

c 

r+3 

Normal 

Return 



2. Control Data 

Two parameters are required for each word to be converted. They are as 


follows: 

Loc Op U-&ddr V-addr 

Param XX XXXXX XXX XX 

D M W S 

Parara+1 ~ -X XXXXX 

3 K 


W (decimal) is the number of characters, including spaces, to be stored at 
audress X. (1 < W <_ 14). 

S Gee WF0001, para D2(b) 

M is tne address of tne first word to be converted. 

X is tne first address of the cells in wnich the converted word is stored. 
This data is a series of six-bit, excess-tnree characters stored one to a woru in 
tne rightmost six bits, the leftmost thirty bits being zero. 

3 is a format control worn. 

If B = 0, (M) is translated: XXXXXXXXXXXX_. 

If B = 1, the address M is translateu: XXXXX_. 

If 3=2, (M) is translated: XX_XXXXX_XXXXX. 


I 






3. 


Space Required 
01 memory cells 
4. Error Codes 

When W is greater than 14, an alarm occurs. 

(A^) = first parameter word 
(A^) = secona parameter word 
(Q) = WF000S in flex code 

D. Restrictions 

Output will be truncated if: 

1. 3=0, ana W is less than 12 

2. 3=1, ana W is less than 5 

3. 6=2, ana W is less than 14. 

E. Coainfe Information 

1. Constants and their Locations 

a. Alphanumeric 
K 

d. Numeric 

K1 through K12 

2. Erasable Output Storage 
P through PI4 


i 
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A. Identification 

1. Title: Alphanumeric Conversion, WF0005 

3. Authors: W. Bauer anu R. Graham 
Date: 1 July 1957 

3. Installation: Wright Field 

B. Purpose 

This routine assembles prestored, prepacKed excess-tnree characters from core 
or arum memory for editing. WF0005 i3 to be usea primarily as a subsidiary of 
the High Speed Printer Edit Routine, WF0001. 

C. Usage 


1. Calling 

Sequence 



Loc 

2n 

U-adar 

V-addr 

r 

RP3 

2 

r+8 

r+1 

TP 

Parameter 

c+8 

r+S 

RJ 

c+2 

c 

r+3 

Normal 

Return 


2. Control 

Data 



Two parameters are 

required for 

each group of characters to be assembled*. 

They are as follows: 



Dqc 

On 

U-aoar 

V-addr 

Parara 

XX 

XXXXX 

XXX XX 


D 

M 

w s 

Param+1 

— 


XXXXX 




K 

W (aecimal) is tne 

number of characters, including spaces to be stored 

starting at address K. 

(1 < »’ 

< 130). 


8 See WF0001, para D7(b). 

M is tne address of tne first six characters to be assembled. 

D See WFQ001, para D3(b). 

K is tne first adaress of the cells in wnich tne assembled data is stored. 
This data is a series of six-bit, excess-three characters pacxeu six tea word. 

3. Space Required 

24 memory cells 






D. Cooing Information 

1. Constants ana their Locations 
K throu^n K4 

?. Erasable Output Locations 
P 








IDENTIFICATION RRFOOC ARCCOS X FLOATING POINT 

L. Krak, R. Van Hilst 15 July 1957 
Remington Rend Univac 

PURPOSE 

Given X compute Y(X) = arcoosx in radians 
METHOD 

■•26 

a. Accuracy: jY(X) - arccosx| <2 in a normalized 27 bit mantissa. 

^2 — 

b. Range of Argument: |X| <1; for 0<|x|<2 , Y(X) is set equal to 2 . 

c. Scaling: 1103AF packed, 8-27, floating point number representation. 

33 

d. Derivation: X is converted to stated point scaled 2 ; the function, arcsin X 

TT 

is computed; then arccos x = 2 - arcsin x (See P.RF6, Arccos x Stated Point), 

and this stated point value is converted to floating point representation for 
Y(X). 

USAGE 

a. Calling Sequence 


LOC 

OP 

U ADDR 

7 ADDR 

r 

RJ 

t+2 

t 

r+1 

Normal 

Return 



b. Control and Results 

The floating point representation of the argument, X, must be initially stored 
at t+4» the floating point representation of the function, Y(X), will be found 
at t+3 upon successful completion of the routine. 

c. Space required 

122 cells of instructions and constants. 

7 cells of working space. 

d. Error Codes 

The following error code is left in the (^-register on return through the error 
exit: 

CODE EXPLANATION 

RRFQ08 |X|>1 

RESTRICTIONS 

The argument must be in 1103AF normalized, pocked floating point number representation 


and must be within the stated range 








*<c— 


:sg inform; tion 





Constants 





LOC 


somsiahi 

EXPLANATION 

C 

20 

14000 

00001 

FP (1+1 ° 2~' ?7 ) 

Cl 

00 

00000 

00000 

Zero 

C2 

14 

14000 

00000 

-32 

FP 2 J 

C3 

00 

00000 

00001 

One 

C4 

20 

14000 

00000 

FP 1 

C5 

37 

70000 

00000 

Characteristic Mask 

C6 

00 

00000 

00126 

Characteristic Unbias Constant 

C7 

53 

24135 

20070 

• 7 • ^ 

CS 

33 

24414 

25535 

„ • ,42 
e 6 2 

C9 

56 

40071 

51545 

* 5 ’ 2 4 ° 

CIO 

37 

50417 

41234 

• „40 
°4 2 

Cll 

46 

237C6 

66522 

“3 ' ^ 

C12 

26 

61651 

66073 

a. * = 38 

«c 

C13 

44 

42003 

30653 


C14 

31 

10375 

51633 

. .34 
e 0 2 

Cl 5 

10 

00000 

00000 

1’2 33 

C16 

26 

47670 

31361 

Constants 

C17 

00 

00000 

65324 

For 

CIS 

11 

45346 

44516 

Square Root 

C19 

33 

06571 

40273 

Routine 

C20 

00 

00000 

00077 

Mask 

C21 

26 

50117 

14640 

JT * 2 34 

C22 

20 

00000 

00000 

1 * 2 34 

C23 

37 

77777 

77777 

Round Factor 

C24 

14 

44176 

65211 

E P 33 

2 * 2 

C25 

07 

20000 

00000 

Characteristic Biss I 

C26 

20 

16220 

77325 

FP| 








-3- 


(cont) 


b. 


LOG 

CONSTANT 

EXPLANATION 

C27 

11 00000 00000 

Characteristic Bias II 

CODE 

12 12263 73760 

Error Code 

Work Space 

7 cells labeled 

STORE thru STORE+6 



c. 


Timing 

•-?7 

Approximate maximum of 7.22 mis. for X= -(1-1.2 ) 
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PROBLEM 3689008 

CODED BY Krak. Van Hilat D AT E 7-15-57 


ITEM NUMBER 

LOC 

OP 

U 

V 

COMMENTS 


> 


9 SUB 

f *RFE>08 

, 122 

9 

$ 

> 


, TEMPS 

, 7 

i o 

» 

$ 

» 


, INOUT 

, 1 

, 1 

9 

$ 

» 

ENTRY 

, MJ 

» o 

, START 

i 

$ 

» 

ERROR 

, ALARM 

9 

» 

i 

$ 

» 

EXIT 

, MJ 

i o 

, FILL 

» 

1 

» 

Y 

, 00 

, FILL 

, FILL 

, FUNCTION 

$ 

i 

X 

, 00 

, FILL 

, FILL 

, ARGUMENT 

$ 

* 

START 

, TM 

, X 

» A 

, ABS X TO A 

$ 

• 


, TJ 

, C 

, PROG 

, CHK FOR X GRTR 1 

* 

> 


, ST 

, CODE 

, Q 

, GO TO 

$ 

» 


, MJ 

, 0 

, ERROR 

, ERROR EXIT 

* 

f 

PROG 

, TP 

, C26 

, Y 

, FOR SMALL X AND 

$ 

» 


, TJ 

» C2 

, EXIT 

, X * 0 Y = PI OVR 2 

$ 

t 


, TP 

, A 

, STORE 

, STORE ABS X 

$ 

9 


, TP 

, X 

» A 

9 

$ 

* 


, TP 

, Cl 

, STORE+1 

, SET FOR POS X 

$ 

» 


, SJ 

, MINUS 

, PLUS 

, TEST SIGN OF X 

$ 


MINUS 

, TP 

» C3 

, STORE+1 

, SET FOR NEG X 

$ 



, TM 

» A 

, A 

, AES X TO A 

$ 

» 

PLUS 

, EJ 

, C4 

, XONE 

, TEST X=1 

$ 

t 


, TP 

, C5 

» Q 

, MASK TO Q 

$ 

• 


, QT 

, A 

, Q 

, CHAR TO Q 

$ 

9 


, cc 

, STORE 

, Q 

, STORE MANTISSA 

$ 

9 


, lq 

9 Q 

, 9 

, FORM SHIFT COUNT 

$ 

9 


, RS 

, Q 

, C6 

, IN Q 

$ 











REMINGTON RAND UNIVAC PAGE 5 O F 8 

PROBLEM RRFC08 _ 

CODED BY KRAK. VAN HILST DATS 7-15-57 


ITEM NUMBER 


LOC 

OP 

U 

V 

COMMENTS 



t 


, TV 

, Q 

, SHIFT 

, K = CHAR -B6 

$ 


t 

SHIFT 

, SP 

, STORE 

, FILL 

SHIFT MANT K LEFT 

$ 


t 


, LTL 

f 0 

, STORE 

, ABS X SCLD 33 TO STORE 

$ 


t 


» MP 

, STORE 

» C7 

9 

$ 


t 


, LTL 

, 1 

* A 

, EVALUATE 

$ 


* 


, AT 

C8 

, STORE+2 , 

, POLYNOMIAL 

$ 


9 


» MP 

, STORE 

, STORE+2 

, EXPRESSION 

$ 


t 


, LTL 

, 1 

» A 

, IN 

$ 


» 


, AT 

» C9 

, STORE+2 

, APPROXIMATION 

$ 


9 


, MP 

, STORE 

, STORE+2 

, OF ARCSINX 

$ 


i 


, LTL 

, 3 

» A 

, ACCUMULATE 

$ 


» 


, AT 

, CIO 

, STORE+2 

i IN 

$ 


» 


, MP 

, STORE 

, STORE+2 

, STORE+2 

$ 


* 


, LTL 

, 2 

» A 

, SCLD 34 

$ 




, AT 

, Cll 

, STORE+2 

9 

$ 


# 


, MP 

, STORE 

, STORE+2 

9 

$ 


9 


, LTL 

» 2 

» A 

9 

$ 


i 


, AT 

, C12 

, STORE+2 

> 

$ 


i 


, MP 

, STORE 

, STORE+2 

9 

$ 


» 


, LTL 

, 2 

# A 

t 

$ 


> 


, AT 

, C13 

, STORE+2 

9 

$ 


i 


» MP 

, STORE 

, STORE+2 


$ 


» 


, LTL 

» 0 

, A 

■ T* 

$ 


9 


, AT 

, C14 

, STORE+2 

, X(X) TO STORE+2 

$ 


t 


, TN 

, STORE 

> A 

, FORM (1-X) 

$ 


» 


, SA 

, Cl 5 

, o 

, SCLD 33 IN A 

$ 


9 


, SF 

, A 

, STORE+3 

, K TO STORE+3 

$ 
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CODED BY KRAK. VAN 

IIILST DATE 7-15-57 


ITEM NUMBER 

LOC 


OP 

U 

V 


COMMENTS 




9 

TP 

, A , 

STORE+4 

9 

STORE N 

$ 










t 


9 

SA 

9 C16 , 

18 

9 

FORM AND STORE 

$ 

» 


9 

LTL 

» 0 

STORE+5 

9 

(N+D)SCLD -18=F 

$ 

» 


9 

MP 

9 C17 , 

STORE+5 

9 

AF TO STORE 

$ 

t 


9 

AT 

9 C18 , 

STORE+6 

9 

AF+B 

$ 

t 


9 

SN 

, C19 , 

15 

9 

r-C SCLD 15 TO A 

$ 

» 


9 

DV 

, STORED5 9 

9 A 

9 

— C OVR F=-G 

* 

9 


9 

AT 

, STORE+6, 

STORE+5 

9 

* 

1(1) APPRX SQRT N SCLD 

161 

i 


9 

SP 

, STORE+4, 

32 

9 

N SCLD 32 TO A 

$ 

t 


9 

ss 

, STORE+5, 

, 0 

9 

N v Y(l) 

$ 

t 


9 

DV 

, STORE+5, 

A 

9 

(N OVR 1(1) ) — 1+Y(1) 

1 

9 


9 

AT 

, STORE+5, 

STORE+5 

9 

=Y(2) = SQRT N SCLD 17 

$ 

f 


9 

LQ 

, STORE+3, 

35 

9 

K(O) IN Q (35) 

$ 

f 


9 

QT 

, C20 , 

A 

9 

K-K(O) OVR 2 IN A 

$ 

t 


9 

TV 

, A , 

KODD 

9 

SET SCALE FOR SQRT N 

$ 

9 


9 

QJ 

, KODD , 

KEVEN 

9 

TEST PARITY OF K 

$ 

9 

KEVEN 

9 

MP 

, C21 , 

STORE+5 

9 


$ 

9 


9 

SA 

, C22 , 

1 

9 


$ 

9 


9 

LTL 

, . 0 , 

STORE+5 

9 


$ 

9 

KODD 

9 

SP 

, STORE+5, 

FILL 

9 


$ 

9 


9 

SA 

, C23 , 

0 

9 

RND SCL SQRT (l-X) 

$ 

9 


9 

LTL 

, o * 

A 

9 

SCLD 33 IN A 

$ 

9 


9 

MP 

A > 

STORE+2, 

9 

-ARCSIN X 

% 

9 


9 

LTL 

9 2 , 

A 

9 

SCLD 33 

% 








• / 


9 


9 

ST 

, C24 , 

Q 

9 

IN Q 

$ 

9 

TEST 

9 

IJ 

, STORE+1, 

NEGX 

9 

FOR X NEG 

$ 

9 


9 

TN 

9 Q 9 

Q 

9 

Y IN 2ND QUAD 

$ 

9 

NEGX 

9 

RS 

9 Q , 

C24 

9 

-ARCCOSX 

$ 

9 


9 

TH 

, A , 

A 

9 

=ARCSINX - PI OVR 2 

$ 
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ITEM NUMBER 


CODED BY K3AK, VAN HILST DATE 7-13-57 


LOC 

OP 

U 

Y 

COMMENTS 



, TP 

, Cl 

, STORE+2 

, CLEAR STORE+2 

$ 


, SF 

, A 

, STORE+2 

t 

$ 


, ZJ 

, NOZERO 

, ZERO 

, TEST FOR MANT=0 

$ 

ZERO 

, TP 

» 

, Y 

* 

$ 


, MJ 

* 0 

, EXIT 

» 

$ 

NOZERO 

, LTL 

, 28 

, Y 

, STORE MANTISSA 

$ 


, SP 

STORE+2 

f 

t 27 

, K SOLD 27 tO A 

e 


, ZJ 

,KZERO+l 

, KZERO 

, TEST K=0 

$ 

KZERO 

, TP 

, C27 

» A 

, SET A-72 SCL9 27 

$ 


, AT 

, C25 

, STORE+2 

, FORM CHARACTERISTIC 

$ 


, CC 

, Y 

, STORE+2 

, PACK UP RESULT 

$ 


, MJ 

» 0 

, EXIT 

» 

$ 

XONE 

, TN 

, C24 

, Q 

, FOR X=1 

$ 


, MJ 

0 

i 

, TEST 

* 

$ 

C 

, B201 

, 4000 

, 00001 

, UPPER LIMIT ON X 

* 

Cl 

, B 

> 

, 0 

, ZERO 

$ 

C2 

, B14I 

, 4000 

, 00000 

, LOWER LIMIT ON X 

$ 

C3 

, B 

» 

, 1 

, ONE 

$ 

C4 

, B201 

, 4000 

, 00000 

, FP 1 

$ 

C5 

, B377 

t 0000 

, 00000 

, CHARACTERISTIC MASK 

$ 

C6 

, B 


, 126 

, CHAR UNBIAS CONST 

$ 

C7 

, B53 

f 24135 

, 20070 

, A(7) SCLD 44 

$ 

C8 

, B33 

t 244 I 4 

, 25535 

, A(6) SCLD 42 

$ 

C9 

, B56 

, 40071 

, 51545 

, A(5) SCLD 40 

$ 

CIO 

, B37 

, 50417 

, 41234 

, A(4) SCLD 40 

$ 

Cll 

, B46 

, 23706 

, 66522 

, A(3) SCLD 39 

$ 

C12 

, B26 

, 61651 

, 66073 

, A(2) SCLD 38 

$ 
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PROBLEM BRFQ08 










CODED BY 

KRAK. VAN HILST DATE 7-15-57 

ITEM NUMBER 


LOC 


OP 


u 


V 

COMMENTS 



t 

C13 

9 

B44 

9 

42003 

t 

30653 

, A(l) SCLD 37 

$ 


9 

C14 

9 

B31 

9 

10375 

» 

51633 

, A(0) SCLD 34 

$ 


9 

C15 

9 

BIO 

9 

00000 

» 

00000 

, 1 SCLD 33 

$ 


9 

C16 

9 

B26 

9 

47670 

t 

31361 

, CONSTANTS 

$ 


9 

C17 

9 

B 

9 


t 

65324 

, FOR 

% 


9 

C18 

9 

Bll 

9 

45346 

t 

44516 

, SQRT 

1 


9 

C19 

9 

B33 

9 

06571 

> 

40273 

, ROUTINE 

$ 


9 

C20 

9 

B 

9 


» 

77 

, K MASK 

$ 


9 

021 

9 

B26 

9 

50117 

» 

14640 

, SQRT 2 SCLD 34 

$ 


9 

C22 

9 

B20 

9 

00000 

» 

00000 

, 1 SCLD 34 

1 


9 

C23 

9 

B37 

9 

77777 

i 

77777 

, ROUND FACTOR 

$ 


9 

024 

9 

B14 

9 

44176 

> 

65211 

, PI OVR 2 SCLD 33 

* 


9 

C25 

9 

B072 

9 

0000 

» 

00000 

, CHARACTER BIAS 

$ 


9 

C26 

9 

B201 

9 

6220 

* 

77325 

, FP PI OVR 2 

$ 


9 

027 

9 

B110 

9 

0000 

* 

00000 

9 

$ 


9 

CODE 

9 

D12 

9 

12263 

» 

•73760 

f ERROR CODE 

$ 


9 


9 

ENDSUB 

9 


9 


9 

$ 









USE Letter No: PC - 9 


13 January, 1958 


To: USE Policy Committee, Publications Committee, Installation Heads 


Attached herewith is USEful Note #17, Sort Routine. We are circulating 
this program as a USEful Note inasmuch as it has not been machine checked. The 
routine has performed successfully on Remington Rand's 1103 at St. Paul but time 
on an 1103A has not as yet been available for final check-out. Your experience 
with this routine would be appreciated. 

The attached material is excluded from the normal page number serializing. 



Executive Secretary, USE 
Remington Rand Univac. 
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1. IDENTIFICATION RR UN 17 - Sort Routine 

V. Benda, R. Russell - 19 November 1957 
Remington Rand Univac 

2. PURPOSE 

To sort a possible 4094^ 0 consecutive computer words, or portions thereof, 
in ascending or descending order and with a possible 10^ groups of related 
consecutively stored words to be arranged in order in respect to the 
sorted data. 

3. METHOD 

A group of cells are sorted in either ascending or descending order by 
transmitting the data involved into magnetic core negative or positive 
respectively and use of a series of repeated threshold jumps. Groups of 
N related cells may then be arranged in the same respective order as the 
sorted group by placing the data into the same magnetic core locations as 
the original data and transferring back to magnetic drum in the same 
order as the original sorted data. 

Four control words supplied to the routine designate the order of sorting, 
magnetic drum locations of data to be sorted, magnetic core locations to be 
used as temporary storage during sorting, magnetic drum locations for data 
after a completed sort, magnetic drum temporary storage for relative 
locations of sorted data in reference to magnetic core, and the extractor, 
if desired, designating the portion of the computer word to be sorted. 

Ten other possible control words may be supplied designating the magnetic 
drum locations of data to be arranged in respect to the original sorted 
data and the final magnetic drum locations for storage upon completion of 
arrangement. 

4. USAGE 

a. Calling sequence - standard 

b. Control Data 

The following octal control words must be stored at t 3 through t 16 


prior 

to entering the 

routine: 


LOC 

OP 

U ADDR 

V ADDR 

EXPLANATION 

t 3 

UU 

xxxxx 

YYYYY 

UUg - Code for order of sort, 
13-Ascending, 11-Descending; 
XXXXXg - First MD address of 
data to be sorted; YYYYYg - 
Last MD address of data to be 
sorted. 

t 4 

00 

MMMMM 

ZZZZZ 

MMMMMg - First Ml address for 
temporary storage of data while 


being sorted, must equal number 
of data plus one. ZZZZZg - Fist 
MD address for final storage of 
data after sort. 




00 


00000 


t 5 


RRRRR 



t 6 


t 7 


rcw 


ss 


l«U 


wwv 


wwwww 


NNNNN 


RRRRRg - First MD address for temporary 
storage of relative locations of data 
while being sorted, must equal number of 
data plus one. 


KW WWWWW KWWWWq - Extractor * to designatr 
which bits of word to be sorted. If no 

extractor is desired set equal to zero. 

SSg - Code for last parameter, 77 - last 
parameter, 00 - otherwise; VVWYq - First 
MD address of data to be arranged in respe'C. 
to original sorted data. NNNNNn - First MJ) 
address of final storage for data after 
arrangement in respect to original sorted 
data. 


*Upon completion of the sort with the use of an extractor the original data will be 
stored, sorted in respect to the extracted bits. 


c. Space required 

165 cells of instructions and constants 
266 cells of working storage 

2(n 1) cells of designated working storage, N equals number of cells of data to be 
sorted. 

d. Error codes 


"ERROR" 


is printed. 


5. RESTRICTIONS 


a. This routine will operate on any 1103A as established by USE but size of MC limits 
the number of data to be sorted. 


b. This routine is self contained. 

c. This routine requires that the temporary storage beginning at MMMMMg be in MC, there 
by limiting the number of pieces of data to be sorted to the (number of locations 

in MC) minus 657g. If so desired, this temporary storage could be located in the MD. 
but the timing will be increased by a multiple of approximately 500. 

d. An extractor (t 6) must not be used when it is known that the data will contain 
negative numbers. 

e. The octal numbers 40 00000 00000 and 37 77777 77777 must not be contained in the 
data to be sorted as these numbers are used by the routine during the sorting 
procedure. 

f. No internal check is made by the routine for over-lapping of regions. 


5. CODING INFORMATION 



a. 


Working storage 

266 cells labeled TEMPS through TEMPS 265 


b. 


Constants 

20 cells labeled CON through CON 19 



COMMENTS 


ITEM NO, _TAG_ OPERATION _ U ADDRESS V ADDRESS 



, SUB 

, SORT 

, 165 

9 


, TEMPS 

, 266 

, o 

f 


, INOUT 

, 14 

, o 

9 ' 

ENTRY 

, MJ 

•, o 

, START 

9 

ERROR 

, ALARM 

• 

• 

9 

EXIT 

, MJ 

. o 

, FILL 

9 

PAR 

, RESERV 

. 14 

. 14 

9 

START 

, PR3 

. 3 

, STARTf-2 

, PAR.TO 

1 

, TP 

, PAR 

, TEMPS 

, TEMP 

2 

, PR2 

, 3 

, STARTH 


3 

. lq 

, TEMPS 

. 17 

, SHIFT TO U 

4 

, TP 

, PAR 

. Q 


5 

, TP 

, PAR-fi 

, A 

t 

6 

. lq 

. Q 

, 25 

, SHIFT TO V 

7 

, LT 

. 25 

. A 

9 

8 

, TV 

. Q 

, TEMPS 

9 

9 

, TV 

, A 

, TEMPSTl 


ST 

, TU 

, PAR 

, DA 1 

9 

1 

, TP 

, CON 

. 0 

, EXT. TO 0 

2 

. QT 

, PAR 

, TEMPSH 

9 

3 

. QT 

, TEMPS 

. Q 

9 

4 

, RS 

, TEMPSt-4 

. Q 

9 

5 

, AT 

, CONH 

, TEMPS+4 

9 

6 

, SA 

, CON+5 

. 17 

. SET UP RP 

7 

, TU 

. A 

, DA 

9 

8 

, TV 

, TEMPSt-1 

, DATl 

9 

DA 

. RP 

, FILL 

, DAt2 

9 

1 

, TP 

, FILL 

, FILL 

. DATA TO MC 

2 

. SP 

, DA 1 

, o 

9 

3 

, SA 

, TEMPS H 

, o 

9 

4 

, TV 

, A 

, DAT5 

9 

5 

, TP 

, CON *-7 

, FILL 

, STORE SEN. 

K 

, TP 

, TEMPS+4 

, A 

, NO OF DATA 

1 

, LT 

, 35 

, TEMPSt6 

, A/128 TO K 

2, 

. U3 

, A 

, 7 

9 

3 

, TP 

. Q 

, TEMPSr7 

, REM TO K 1 

EX 

, TP 

, PARt-3 

, A 

, EXT. TO A 

1 

, ZJ 

, EX+2 

, WS 

9 

2 

, TP 

. A 

. Q 


3 

, TU 

, DA 

, EX+6 

! SET RP 

4 

, TU 

, PARTI 

. EXf7 

9 

5 

, TV 

, TEMPSTl 

, EX-f7 

9 

6 

, RP 

, FILL 

, WS 

, MASK OUT 

7 

. QT 

, FILL 

t FILL 

, WITH EXT. 

WS 

, TP 

, PAR 

, A 

9 

1 

, TJ 

, CONH1 

, WS+8 

9 

2 

, TP 

, A 

, WSt7 


3 

, TU 

, DA 

, WST6 

9 

4 

, TU 

, PARTI 

. WSt7 

9 

5 

, TV 

. DATl 

. WS+7 

9 

6 

, RP 

, FILL 

, WS-f8 

9 

7 

, o 

, FILL 

, FILL 

9 

8 

, TP 

, CON+9 

, A 

9 

MA 

, RP1 

. 128 

, MAr2 

9 











Timing 

Spending on number of pieces of data and arrangement the timing will vary 
considerably. For 7776g pieces of data it will be approximately 2 minutes. 



TAG 

OPERATION U ADDRESS 

V ADDRESS 

CORTOENTS 

LB 

* TV 

, MA+63 

, CO Nil 6 

• 

1 

, SP 

, CONt-16 . 

, o 

t 

2 

, AT 

, TEMPS+7 

, LB 13 

, SET NI 

3 

. o 

, FILL 

, FILL 

, STORE JUMP OUT 

4 

. SP 

, TEMPSf7 

. o 

« 

5 

, SA 

, CONf-5 

, 17 

, SET RP 

6 

, TU 

. A 

, MSr32 

9 

7 

, TU 

. A 

t TEMPSt8 

• 

8 

, RS 

, TEMPS f3 

. A 

, CLEAR INDEX A 

9 

, MJ 

. o 

, MAt32 

9 

RL 

. RP 

, FILL 

, RLT2 

, BRING IN 

1 

, TP 

, FILL 

, FILL 

, DATA 

2, 

t TP 

, C0Nti7 

, TEMPST137 

9 

3 

, RP3 

, 128 

, TEMPS1-9 

, BRING IN 128 

4 

, TP 

, FILL 

, TEMPST9 

, REL. LOG 

5 

, RA 

, RLH 

, CON 119 

9 

6, 

t RP3 

, 128 

, RLT8 

, STORE TRUE 

7 

, TP 

, TEMPS r!38 

, FILL 

, VALUES ON MD 

8 

, RA 

, RLt-7 

, C0N-J4 


9 

, RJ 

, RLt9 

t RLrrlO 

9 

10 

, MJ 

, o 

, RLT3 

9 

11 

, TU 

, TEMPS t8 

, RL-t6 


12 

, RJ 

, RL+9 

, RLT6 

9 

13 

, TU 

, RL+3 

, RLr6 

9 

14 

, MJ 

, o 

, FILL 

, LOOP EXIT 

CON 

. B 

. o 

, 77777 


1 

. B 

. o 

, 2 

9 

2 

, B20 

, 12120 

, 31245 

9 

3 

. B 

, 1 

. o 


4 

. B 

. o 

, 1 

9 

5 

, B 

. o 

, 30000 


6 

, B40 

, o 

« o 


7 

, B37 

, 77777 

, 77777 

9 

8 

, TM 

, PAR+4 

, o 


9 

, TP 

, FILL 

, TEMPSiT37 

9 

10 

, TP 

, FILL 

, A ' 


11 

. TJ 

, FILL 

, MArl4 

9 

12 

. B 

. o 

. 177 

9 

- 13 

. B 

. o 

, 27777 

9 

14 

. B 

, o 

, 200 

9 

15 

, B 

. o 

, 11 


16 

, TP 

, C0NH8 

, FILL 

9 

17 

t MJ 

, o 

, RL1-5 

9 

18 

, MJ 

. o 

, RLrrt 1 * 

9 

19 

. B 

, 200 

. o 

9 

ER 

, TP 

, CON+2 

. Q 

9 

1 

, MJ 

, o 

, ERROR 

, TO ALARM EXIT 












* V 

:em no . 

TAG 

OPERATION 

U ADDRESS V ADDRESS 

COMMENTS 



. 1 

. AT 

, CON+4 

, TEMPS+il, 


$ 


. 2 

, TU 

, PAR+1 

, CONtI0 

• 

$ 


,3 

, TU 

, PARtl 

, CON-fil 

• 

$ 


, 4 

, RA 

, CONtll 

, CON7-3 

• 

$ 


, 5 

, TV 

, PAR+2 

, MAf33 

t 

$ 


. 6 

, TP 

, TEMPS+6 

. TEMPS+3 

, LOAD INDEX A 

$ 


. 7, 

, TP 

, CON+12 

, TEMPS f5 

, 127 TO INDEX B 

$ 


. 6 

, TV 

, MAtl 

, MA+27 

t 

$ 


. 9 

, TP 

, CON-f-lO 

, MA+11 

f 

$ 


, 10 

, TP 

, CON+11 

, MA+13 

« 

$ 


, 11 

, TP 

, FILL 

. A 

, 1ST VALUE TO A 

$ 


. 12 

, RP2 

, 4095 

, ER 

, TEST FOR 

$ 


, 13 

. TJ 

, FILL 

, MA"rt4 

. LARGEST VALUE 

$ 


. 14 

, TP 

, C0N+T3 

. A 

t 

$ 


. 15 

, SS 

. 0 

. 17 

• 

$ 


. 16 

, AT 

, MAtil 

, MA+17 

t 

$ 


. 17 

, o 

, FILL 

, FILL 

t 

$ 


. 18 

, EJ 

, CON+7 

, MAt-23 

, E UAL SENTINEL 

$ 


, 19 

, TP 

, MA+-1 7 

, MA+11 

t 

$ 


. 20 

, TU 

, MA-rl 7 

, MATl 3 

t 

$ 


, 21 

, RA 

, MA+-13 

, C0N+-3 

, SET TJ 

$ 


, 22 

, MJ 

. o 

, MAtil 

« 

$ 


. 23 

, TP 

, MA+11 

, MAt24 

« 

$ 


. 24 

. o 

, FILL 

, FILL 

* 

$ . 

• 

. 25 

. EJ 

, CON-**’ 

. LB 

, EQUAL FILLER 

$ 


. 26 

. eq 

, MA+11 

. 25 

, SHIFT TO V 

$ 


, 27 

, TU 

, MA+24 

, FILL 

, STORE REL. LOC 

$ 


, 28 

, TV 

, MAtil 

, MA+29 

• 

$ 


. 29 

, TP 

, C0N+6- 

, FILL 

, SET EQUAL TO FILLER $ 


, 30 

, RS 

, MAT27 

i C0N-r4 

t 

$ 


. 31 

, u 

, TEMPS+5 

, MA+9 

, INDEX B EQUAL 0(127) $ 


, 32 

, RP3 

. 128 

, MAf34 

t 

$ 


t 33 

, TP 

, TEMPS+9 

, FILL 

, STORE REL LOC ON MD $ 


; 34 

, RA 

. MA-t-33 

, CON+14 

t 

$ 


, 35 

, IJ 

, TEMPSr3 

, MA+7 

, INDEX A EQUAL 0 $ 


, 36 

, TU 

, RLT3 

, MAt32 


$ 


. 37 

, TU 

, DA 

, RL 

• 

$ 


, 38 

t TP 

. DA+1 

, RLrl 


$ 


, 39 

, TU 

t TEMPS+2 

, RLT4 

• 

$ 


. 40 

, TV 

, PAR+1 

, RLT7 

t 

$ 


. 41 

, RJ 

, RLt-14 

, RL 

t 

$ 


, BL 

, TP 

, CON+15 

, TEMPS+-3 

, 9 TO INDEX A 

$ 


. 1 

, TP 

, PARr4 

, A 

, PAR TO A 

$ 


. 2 

. ZJ 

, BL-r3 

, EXIT 

, EQUAL 0 

$ 


. 3 

, TU 

, TEMPS+-2 

, RLT4 


$ 


. 4 

, TU 

, A 

, RLT-1 

» 

$ 


. 5 

, TV 

, A 

, RC+7 

t 

$ 


. 6 

, SJ 

, BLrT 

, BL+8 

, CHECK FOR LAST 

PAR. $ 


. 7 

, RS 

, TEMPSr-3 

. A 

, CLEAR INDX A 

$ 

A 

, 8 

, RJ 

, RLt-14 

, RL 


$ 

w 

, 9 

, RA 

, BL+1 

, CON+3 

t 

$ 


. 10 

, IJ 

, TEMPS+3 

, BLxl 

, INDEX A EQUAL 0(9) $ 


. 11 

, TU 

, CONrB 

, BL+-1 

« 

$ 


, 12 

, MJ 

. o 

, EXIT 

, TO EXIT 

$ 









